Revision 94e05c32 Ganeti/HTools/Rapi.hs

b/Ganeti/HTools/Rapi.hs
114 114 

  		





  115
  115
  
    
-- | Builds the cluster data from an URL.


  		





  116
  116
  
    
loadData :: String -- ^ Cluster or URL to use as source


  		





  117
  
  
    
         -> IO (Result (Node.AssocList, Instance.AssocList))


  		





  
  117
  
    
         -> IO (Result (Node.AssocList, Instance.AssocList, [String]))


  		





  118
  118
  
    
loadData master = do -- IO monad


  		





  119
  119
  
    
  let url = formatHost master


  		





  120
  120
  
    
  node_body <- getUrl $ printf "%s/2/nodes?bulk=1" url


  		





  ......




  124
  124
  
    
    let (node_names, node_idx) = assignIndices node_data


  		





  125
  125
  
    
    inst_data <- inst_body >>= getInstances node_names


  		





  126
  126
  
    
    let (_, inst_idx) = assignIndices inst_data


  		





  127
  
  
    
    return (node_idx, inst_idx)


  		





  
  127
  
    
    return (node_idx, inst_idx, [])


  		












Also available in:
  Unified diff