Synnefo » snf-ganeti

      snode = (if sidx == Node.noSecondary

                 then ""

                 else Container.nameOf nl sidx)

       iname (Instance.mem inst) (Instance.dsk inst)

       (Instance.vcpus inst) (instanceStatusToRaw (Instance.runSt inst))

       (if Instance.autoBalance inst then "Y" else "N")

       pnode snode (diskTemplateToRaw (Instance.diskTemplate inst))

-- | Generate instance file data from instance objects.

serializeInstances :: Node.List -> Instance.List -> String

                                               -- instance name and

                                               -- the instance object

loadInst ktn [ name, mem, dsk, vcpus, status, auto_bal, pnode, snode

  pidx <- lookupNode ktn name pnode

  sidx <- if null snode

            then return Node.noSecondary

                         "' for instance " ++ name

  disk_template <- annotateResult ("Instance " ++ name)

                   (diskTemplateFromRaw dt)

  when (sidx == pidx) $ fail $ "Instance " ++ name ++

           " 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 ++ "'"

-- | Loads a spec from a field list.