Revision 31463db5

b/Ganeti/HTools/IAlloc.hs
80 80 
parseNode n a = do
81 81 
  offline <- fromObj "offline" a
82 82 
  drained <- fromObj "drained" a
83 
  guuid   <- fromObj "group" a
83 84 
  node <- (if offline || drained
84 
           then return $ Node.create n 0 0 0 0 0 0 True defaultUUID
85 
           then return $ Node.create n 0 0 0 0 0 0 True guuid
85 86 
           else do
86 87 
             mtotal <- fromObj "total_memory" a
87 88 
             mnode  <- fromObj "reserved_memory" a
......
90 91 
             dfree  <- fromObj "free_disk"    a
91 92 
             ctotal <- fromObj "total_cpus"   a
92 93 
             return $ Node.create n mtotal mnode mfree
93 
                    dtotal dfree ctotal False defaultUUID)
94 
                    dtotal dfree ctotal False guuid)
94 95 
  return (n, node)
95 96 

  		





  96
  97
  
    
-- | Top-level parser.


  		












Also available in:
  Unified diff