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