Synnefo » snf-ganeti

-- | 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