Revision 17e7af2b Ganeti/HTools/Rapi.hs

b/Ganeti/HTools/Rapi.hs
88 88 
  snode <- (if null snodes then return Node.noSecondary
89 89 
            else readEitherString (head snodes) >>= lookupNode ktn name)
90 90 
  running <- extract "status" a
91 
  let inst = Instance.create name mem disk vcpus running pnode snode
91 
  tags <- extract "tags" a
92 
  let inst = Instance.create name mem disk vcpus running tags pnode snode
92 93 
  return (name, inst)
93 94 

  		





  94
  95
  
    
-- | Construct a node from a JSON object.


  		












Also available in:
  Unified diff