Synnefo » snf-ganeti » ganeti-local

{-

debug :: Show a => a -> a

debug x = trace (show x) x

debugFn :: Show b => (a -> b) -> a -> a

debugFn fn x = debug (fn x) `seq` x

debugXy :: Show a => a -> b -> b

debugXy a b = debug a `seq` b

-- | Comma-join a string list.

commaJoin :: [String] -> String

-- Simple and slow statistical functions, please replace with better

-- versions

stdDev :: [Double] -> Double

stdDev lst =

  -- first, calculate the list length and sum lst in a single step,

-- * JSON-related functions

type JSRecord = [(String, J.JSValue)]

-- | Converts a JSON Result into a monadic value.

                      JSRecord -> String -> a -> m a

fromObjWithDefault o k d = liftM (fromMaybe d) $ maybeFromObj o k

fromKeyValue :: (J.JSON a, Monad m)

              => String     -- ^ The key name

              -> J.JSValue  -- ^ The value to read

fromKeyValue k val =

  fromJResult (printf "key '%s', value '%s'" k (show val)) (J.readJSON val)

annotateResult :: String -> Result a -> Result a

annotateResult owner (Bad s) = Bad $ owner ++ ": " ++ s

annotateResult _ v = v

-- | Try to extract a key from a object with better error reporting

tryFromObj :: (J.JSON a) =>

              String     -- ^ Textual "owner" in error messages

           -> JSRecord   -- ^ The object array

-- * Parsing utility functions

parseChoices :: (Monad m, Read a) => String -> String -> [(a, String)] -> m a

parseChoices _ _ ((v, ""):[]) = return v

parseChoices name s ((_, e):[]) =

tryRead :: (Monad m, Read a) => String -> String -> m a

tryRead name s = parseChoices name s $ reads s

formatTable :: [[String]] -> [Bool] -> [[String]]

formatTable vals numpos =

    let vtrans = transpose vals  -- transpose, so that we work on rows

                    ) (zip3 vtrans numpos mlens)

   in transpose expnd

defaultGroupID :: GroupID

defaultGroupID = "00000000-0000-0000-0000-000000000000"