Revision 9eeb0aa5 htools/Ganeti/Confd/Utils.hs

b/htools/Ganeti/Confd/Utils.hs
40 40 
import Ganeti.Confd
41 41 
import Ganeti.Hash
42 42 
import qualified Ganeti.Constants as C
43 
import qualified Ganeti.Path as Path
43 44 
import Ganeti.JSON
44 45 
import Ganeti.HTools.Utils
45 46 

  		





  46
  47
  
    
-- | Returns the HMAC key.


  		





  47
  48
  
    
getClusterHmac :: IO HashKey


  		





  48
  
  
    
getClusterHmac = fmap B.unpack $ B.readFile C.confdHmacKey


  		





  
  49
  
    
getClusterHmac = fmap B.unpack $ B.readFile Path.confdHmacKey


  		





  49
  50
  
    

  		





  50
  51
  
    
-- | Parses a signed request.


  		





  51
  52
  
    
parseRequest :: HashKey -> String -> Result (String, String, ConfdRequest)


  		












Also available in:
  Unified diff