Revision c324da14 src/Ganeti/HTools/Backend/IAlloc.hs

b/src/Ganeti/HTools/Backend/IAlloc.hs
131 131 
  let vm_capable' = fromMaybe True vm_capable
132 132 
  gidx <- lookupGroup ktg n guuid
133 133 
  node <- if offline || drained || not vm_capable'
134 
            then return $ Node.create n 0 0 0 0 0 0 True 0 gidx
134 
            then return $ Node.create n 0 0 0 0 0 0 True 0 gidx False
135 135 
            else do
136 136 
              mtotal <- extract "total_memory"
137 137 
              mnode  <- extract "reserved_memory"
......
142 142 
              ndparams <- extract "ndparams" >>= asJSObject
143 143 
              spindles <- tryFromObj desc (fromJSObject ndparams)
144 144 
                          "spindle_count"
145 
              excl_stor <- tryFromObj desc (fromJSObject ndparams)
146 
                           "exclusive_storage"
145 147 
              return $ Node.create n mtotal mnode mfree
146 
                     dtotal dfree ctotal False spindles gidx
148 
                     dtotal dfree ctotal False spindles gidx excl_stor
147 149 
  return (n, node)
148 150 

  		





  149
  151
  
    
-- | Parses a group as found in the cluster group list.


  		












Also available in:
  Unified diff