Revision d752eb39 Ganeti/HTools/Rapi.hs

b/Ganeti/HTools/Rapi.hs
82 82 
  name <- fromObj "name" a
83 83 
  disk <- fromObj "disk_usage" a
84 84 
  mem <- fromObj "beparams" a >>= fromObj "memory"
85 
  vcpus <- fromObj "beparams" a >>= fromObj "vcpus"
85 86 
  pnode <- fromObj "pnode" a >>= lookupNode ktn name
86 87 
  snodes <- fromObj "snodes" a
87 88 
  snode <- (if null snodes then return Node.noSecondary
88 89 
            else readEitherString (head snodes) >>= lookupNode ktn name)
89 90 
  running <- fromObj "status" a
90 
  let inst = Instance.create name mem disk running pnode snode
91 
  let inst = Instance.create name mem disk vcpus running pnode snode
91 92 
  return (name, inst)
92 93 

  		





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


  		












Also available in:
  Unified diff