Revision 1a82215d Ganeti/HTools/Rapi.hs

b/Ganeti/HTools/Rapi.hs
97 97 
    name <- fromObj "name" a
98 98 
    offline <- fromObj "offline" a
99 99 
    node <- (case offline of
100 
               True -> return $ Node.create name 0 0 0 0 0 True
100 
               True -> return $ Node.create name 0 0 0 0 0 0 True
101 101 
               _ -> do
102 102 
                 drained <- fromObj "drained" a
103 
                 mtotal <- fromObj "mtotal" a
104 
                 mnode <- fromObj "mnode" a
105 
                 mfree <- fromObj "mfree" a
106 
                 dtotal <- fromObj "dtotal" a
107 
                 dfree <- fromObj "dfree" a
103 
                 mtotal  <- fromObj "mtotal"  a
104 
                 mnode   <- fromObj "mnode"   a
105 
                 mfree   <- fromObj "mfree"   a
106 
                 dtotal  <- fromObj "dtotal"  a
107 
                 dfree   <- fromObj "dfree"   a
108 
                 ctotal  <- fromObj "ctotal"  a
108 109 
                 return $ Node.create name mtotal mnode mfree
109 
                        dtotal dfree (offline || drained))
110 
                        dtotal dfree ctotal (offline || drained))
110 111 
    return (name, node)
111 112 

  		





  112
  113
  
    
-- | Builds the cluster data from an URL.


  		












Also available in:
  Unified diff