Revision 183a9c3d Ganeti/HTools/Cluster.hs

b/Ganeti/HTools/Cluster.hs
677 677 
    let snl = sortBy (compare `on` Node.idx) (Container.elems nl)
678 678 
        m_name = maximum . map (length . Node.name) $ snl
679 679 
        helper = Node.list m_name
680 
        h2 = printf " %5s %5s %5s %5s" "lCpu" "lMem" "lDsk" "lNet"::String
680 681 
        header = printf
681 682 
                 "%2s %-*s %5s %5s %5s %5s %5s %5s %5s %5s %4s %4s \
682 683 
                 \%3s %3s %6s %6s %5s"
......
684 685 
                 "t_mem" "n_mem" "i_mem" "x_mem" "f_mem" "r_mem"
685 686 
                 "t_dsk" "f_dsk" "pcpu" "vcpu"
686 687 
                 "pri" "sec" "p_fmem" "p_fdsk" "r_cpu"::String
687 
    in unlines (header:map helper snl)
688 
    in unlines ((header++h2):map helper snl)
688 689 

  		





  689
  690
  
    
-- | Print the instance list.


  		





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


  		












Also available in:
  Unified diff