Revision 34ace266 htools/Ganeti/HTools/Node.hs

b/htools/Ganeti/HTools/Node.hs
547 547 
    "ptags" -> intercalate "," . map (uncurry (printf "%s=%d")) .
548 548 
               Map.toList $ pTags t
549 549 
    "peermap" -> show $ peers t
550 
    "spindle_count" -> show $ spindleCount t
551 
    "hi_spindles" -> show $ hiSpindles t
552 
    "inst_spindles" -> show $ instSpindles t
550 553 
    _ -> T.unknownField
551 554 
  where
552 555 
    T.DynUtil { T.cpuWeight = uC, T.memWeight = uM,
......
584 587 
    "nload" -> ("lNet", True)
585 588 
    "ptags" -> ("PrimaryTags", False)
586 589 
    "peermap" -> ("PeerMap", False)
590 
    "spindle_count" -> ("NodeSpindles", True)
591 
    "hi_spindles" -> ("MaxSpindles", True)
592 
    "inst_spindles" -> ("InstSpindles", True)
587 593 
    -- TODO: add node fields (group.uuid, group)
588 594 
    _ -> (T.unknownField, False)
589 595 

  		












Also available in:
  Unified diff