Synnefo » snf-ganeti » ganeti-local

import System.IO

import System.Posix.Files

import System.Posix.Types

import qualified Text.JSON as J

import System.INotify

queryArgumentError :: StatusAnswer

queryArgumentError = (ReplyStatusError, J.showJSON ConfdErrorArgument)

-- | Converter from specific error to a string format.

gntErrorToResult :: ErrorResult a -> Result a

gntErrorToResult (Bad err) = Bad (show err)

  , parseRequest

  , parseMessage

  , signMessage

  ) where

import qualified Data.ByteString as B

import qualified Text.JSON as J

import Ganeti.BasicTypes

import Ganeti.Confd.Types

                , signedMsgHmac = hmac

                }

    where hmac = computeMac key (Just salt) msg