Revision c352b0a9 htools/Ganeti/HTools/Rapi.hs

b/htools/Ganeti/HTools/Rapi.hs
122 122 
            else readEitherString (head snodes) >>= lookupNode ktn name)
123 123 
  running <- extract "status" a
124 124 
  tags <- extract "tags" a
125 
  let inst = Instance.create name mem disk vcpus running tags pnode snode
125 
  let inst = Instance.create name mem disk vcpus running tags True pnode snode
126 126 
  return (name, inst)
127 127 

  		





  128
  128
  
    
-- | Construct a node from a JSON object.


  		












Also available in:
  Unified diff