Revision 29a30533 htools/Ganeti/Confd/Utils.hs

b/htools/Ganeti/Confd/Utils.hs
46 46 

  		





  47
  47
  
    
-- | Returns the HMAC key.


  		





  48
  48
  
    
getClusterHmac :: IO HashKey


  		





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


  		





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


  		





  50
  50
  
    

  		





  51
  51
  
    
-- | Parses a signed request.


  		





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


  		












Also available in:
  Unified diff