Revision 3c64b5aa Ganeti/HTools/Node.hs

b/Ganeti/HTools/Node.hs
301 301 
-- | String converter for the node list functionality.
302 302 
list :: Int -> Node -> String
303 303 
list mname t =
304 
    let pl = plist t
305 
        sl = slist t
304 
    let pl = length $ plist t
305 
        sl = length $ slist t
306 306 
        mp = p_mem t
307 307 
        dp = p_dsk t
308 308 
        cp = p_cpu t
......
314 314 
        fmem = f_mem t
315 315 
        imem = (truncate tmem) - nmem - xmem - fmem
316 316 
    in
317 
      printf " %c %-*s %5.0f %5d %5d %5d %5d %5d %5.0f %5d %3d %3d\
318 
             \ %.5f %.5f %.5f"
317 
      if off
318 
         then printf " - %-*s %57s %3d %3d"
319 
              mname (name t) "" pl sl
320 
         else
321 
             printf " %c %-*s %5.0f %5d %5d %5d %5d %5d %5.0f %5d\
322 
                    \ %4.0f %4d %3d %3d %6.4f %6.4f %5.2f"
319 323 
                 (if off then '-' else if fn then '*' else ' ')
320 324 
                 mname (name t) tmem nmem imem xmem fmem (r_mem t)
321 325 
                 ((t_dsk t) / 1024) ((f_dsk t) `div` 1024)
322 
                 (length pl) (length sl)
323 
                 mp dp cp
326 
                 (t_cpu t) (u_cpu t)
327 
                 pl sl mp dp cp

Also available in: Unified diff