Synnefo » snf-ganeti

                 _ -> fs

      snl = sortBy (comparing Node.idx) (Container.elems nl)

      (header, isnum) = unzip $ map Node.showHeader fields

-- | Print the instance list.

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

      header = [ "F", "Name", "Pri_node", "Sec_node", "Auto_bal"

               , "vcpu", "mem" , "dsk", "lCpu", "lMem", "lDsk", "lNet" ]

      isnum = False:False:False:False:False:repeat True

-- | Shows statistics for a given node list.

printStats :: String -> Node.List -> String

                         , printf "%.8f" val

                         , printf "x%.2f" w

                         ]) hd

-- | Convert a placement into a list of OpCodes (basically a job).

iMoveToJob :: Node.List        -- ^ The node list; only used for node

  , commaJoin

  , tryRead

  , formatTable

  , parseUnit

  , plural

  ) where

                    ) (zip3 vtrans numpos mlens)

   in transpose expnd

-- | Tries to extract number and scale from the given string.

--

-- Input must be in the format NUMBER+ SPACE* [UNIT]. If no unit is