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