Revision 1a82215d Ganeti/HTools/IAlloc.hs

b/Ganeti/HTools/IAlloc.hs
79 79 
    offline <- fromObj "offline" a
80 80 
    drained <- fromObj "drained" a
81 81 
    node <- (case offline of
82 
               True -> return $ Node.create name 0 0 0 0 0 True
82 
               True -> return $ Node.create name 0 0 0 0 0 0 True
83 83 
               _ -> do
84 84 
                 mtotal <- fromObj "total_memory" a
85 
                 mnode <- fromObj "reserved_memory" a
86 
                 mfree <- fromObj "free_memory" a
87 
                 dtotal <- fromObj "total_disk" a
88 
                 dfree <- fromObj "free_disk" a
85 
                 mnode  <- fromObj "reserved_memory" a
86 
                 mfree  <- fromObj "free_memory"  a
87 
                 dtotal <- fromObj "total_disk"   a
88 
                 dfree  <- fromObj "free_disk"    a
89 
                 ctotal <- fromObj "total_cpus"   a
89 90 
                 return $ Node.create n mtotal mnode mfree
90 
                        dtotal dfree (offline || drained))
91 
                        dtotal dfree ctotal (offline || drained))
91 92 
    return (name, node)
92 93 

  		





  93
  94
  
    
-- | Top-level parser.


  		












Also available in:
  Unified diff