Revision 267bc1f4 src/Ganeti/HTools/Backend/Rapi.hs

b/src/Ganeti/HTools/Backend/Rapi.hs
166 166 
              dtotal  <- extract "dtotal"
167 167 
              dfree   <- extract "dfree"
168 168 
              ctotal  <- extract "ctotal"
169 
              return $ Node.create name mtotal mnode mfree
170 
                     dtotal dfree ctotal False spindles guuid'
169 
              tags    <- extract "tags"
170 
              return . flip Node.setNodeTags tags $
171 
                Node.create name mtotal mnode mfree dtotal dfree ctotal False
172 
                            spindles guuid'
171 173 
  return (name, node)
172 174 

  		





  173
  175
  
    
-- | Construct a group from a JSON object.


  		












Also available in:
  Unified diff