Revision 908c2f67 src/Ganeti/HTools/Backend/Rapi.hs

b/src/Ganeti/HTools/Backend/Rapi.hs
140 140 
  dt <- extract "disk_template" a
141 141 
  su <- extract "spindle_use" beparams
142 142 
  let inst = Instance.create name mem disk disks vcpus running tags
143 
             auto_balance pnode snode dt su
143 
             auto_balance pnode snode dt su []
144 144 
  return (name, inst)
145 145 

  		





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


  		





  ......




  231
  231
  
    
  let (node_names, node_idx) = assignIndices node_data


  		





  232
  232
  
    
  inst_data <- inst_body >>= getInstances node_names


  		





  233
  233
  
    
  let (_, inst_idx) = assignIndices inst_data


  		





  234
  
  
    
  (tags, ipolicy, master) <- 


  		





  
  234
  
    
  (tags, ipolicy, master) <-


  		





  235
  235
  
    
    info_body >>=


  		





  236
  236
  
    
    (fromJResult "Parsing cluster info" . decodeStrict) >>=


  		





  237
  237
  
    
    parseCluster


  		












Also available in:
  Unified diff