Synnefo » snf-ganeti

  vcpus <- extract "vcpus"

  tags  <- extract "tags"

  let running = "running"

-- | Parses an instance as found in the cluster instance list.

parseInstance :: NameAssoc -- ^ The node name-to-index association list

    , movable      :: Bool      -- ^ Can the instance be moved?

    , autoBalance  :: Bool      -- ^ Is the instance auto-balanced?

    , tags         :: [String]  -- ^ List of instance tags

    } deriving (Show, Read)

instance T.Element Instance where

-- Some parameters are not initialized by function, and must be set

-- later (via 'setIdx' for example).

create :: String -> Int -> Int -> Int -> String

create name_init mem_init dsk_init vcpus_init run_init tags_init

    Instance { name = name_init

             , alias = name_init

             , mem = mem_init

             , tags = tags_init

             , movable = True

             , autoBalance = auto_balance_init

             }

-- | Changes the index.

  xtags <- convert "tags" tags

  xauto_balance <- convert "auto_balance" auto_balance

  let inst = Instance.create xname xmem xdisk xvcpus

  return (xname, inst)

parseInstance _ v = fail ("Invalid instance query result: " ++ show v)

-- | Create an instance given its spec.

createInstance mem dsk vcpus =

    Instance.create "inst-unnamed" mem dsk vcpus "running" [] True (-1) (-1)

-- | Create a small cluster by repeating a node spec.

makeSmallCluster :: Node.Node -> Int -> Node.List

      sn <- arbitrary

      vcpus <- choose (0, maxCpu)

      return $ Instance.create name mem dsk vcpus run_st [] True pn sn

-- | Generas an arbitrary node based on sizing information.

genNode :: Maybe Int -- ^ Minimum node size in terms of units

  tags <- extract "tags" a

  auto_balance <- extract "auto_balance" beparams

  let inst = Instance.create name mem disk vcpus running tags

  return (name, inst)

-- | Construct a node from a JSON object.

           " has same primary and secondary node - " ++ pnode

  let vtags = sepSplit ',' tags

      newinst = Instance.create name vmem vdsk vvcpus status vtags

  return (name, newinst)

loadInst _ s = fail $ "Invalid/incomplete instance data: '" ++ show s ++ "'"

  -- utility functions

  let iofspec spx = Instance.create "new" (rspecMem spx) (rspecDsk spx)

      exitifbad val = (case val of

                         Bad s -> do

                           hPrintf stderr "Failure: %s\n" s :: IO ()