Synnefo » snf-ganeti » ganeti-local

-- | Inner function for splitJobs, that either appends the next job to

-- the current jobset, or starts a new jobset.

mergeJobs :: ([JobSet], [Ndx]) -> MoveJob -> ([JobSet], [Ndx])

    | null (ndx `intersect` nbuf) = ((n:j):js, ndx ++ nbuf)

    | otherwise = ([n]:cjs, ndx)

-- | Given a list of commands, prefix them with @gnt-instance@ and

-- also beautify the display a little.

formatJob :: Int -> Int -> (Int, MoveJob) -> [String]

    let out =

            printf "  echo job %d/%d" jsn sn:

            printf "  check":

-- | Formatted solution output for one move (involved nodes and

-- commands

-- | A list of command elements

type JobSet = [MoveJob]

              let

                  (Cluster.Table _ _ _ fin_plc) = fin_tbl

                  fin_plc_len = length fin_plc

                  (sol_line, cmds) = Cluster.printSolutionLine ini_nl ini_il

                                     nmlen imlen cur_plc fin_plc_len

                  afn = Cluster.involvedNodes ini_il cur_plc

              unless oneline $ do

                       putStrLn sol_line

                       hFlush stdout