Synnefo » snf-ganeti

  vcpus <- extract "vcpus"

  tags  <- extract "tags"

  dt    <- extract "disk_template"

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

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

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

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

  , diskTemplate :: T.DiskTemplate -- ^ The disk template of the instance

  } deriving (Show, Read, Eq)

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 -> T.InstanceStatus

create name_init mem_init dsk_init vcpus_init run_init tags_init

  Instance { name = name_init

           , alias = name_init

           , mem = mem_init

           , movable = supportsMoves dt

           , autoBalance = auto_balance_init

           , diskTemplate = dt

           }

-- | Changes the index.

  xauto_balance <- convert "auto_balance" auto_balance

  xdt <- convert "disk_template" disk_template

  let inst = Instance.create xname xmem xdisk xvcpus

  return (xname, inst)

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

instFromSpec :: RSpec -> DiskTemplate -> Instance.Instance

instFromSpec spx disk_template =

  Instance.create "new" (rspecMem spx) (rspecDsk spx)

-- | Main function.

main :: Options -> [String] -> IO ()

-- | Create an instance given its spec.

createInstance mem dsk vcpus =

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

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

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

  sn <- arbitrary

  vcpus <- choose (0, lim_cpu)

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

-- | Generates an instance smaller than a node.

genInstanceSmallerThanNode :: Node.Node -> Gen Instance.Instance

  auto_balance <- extract "auto_balance" beparams

  dt <- extract "disk_template" a

  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 = commaSplit tags

      newinst = Instance.create name vmem vdsk vvcpus vstatus vtags

  return (name, newinst)

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