Synnefo » snf-ganeti » ganeti-local

  let (old_pdx, old_sdx, old_p, old_s) = instanceNodes nl inst

      int_p = Node.removePri old_p inst

      int_s = Node.removeSec old_s inst

      new_nl = do -- Maybe monad

        new_s <- Node.addSec int_p inst old_sdx

        let new_inst = Instance.setBoth inst old_sdx old_pdx

        return (Container.addTwo old_pdx new_s old_sdx new_p nl,

checkInstanceMove nodes_idx disk_moves inst_moves ini_tbl target =

  let opdx = Instance.pNode target

      osdx = Instance.sNode target

      use_secondary = elem osdx nodes_idx && inst_moves

      aft_failover = if use_secondary -- if allowed to failover

                       then checkSingleStep ini_tbl target ini_tbl Failover

                 _ -> fs

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

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

     formatTable (header:map (Node.list fields) snl) isnum

-- | Print the instance list.

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

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

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

     formatTable (header:map helper sil) isnum

-- | Shows statistics for a given node list.