Revision e3a684c5 Ganeti/HTools/Rapi.hs

b/Ganeti/HTools/Rapi.hs
84 84 
    return (name, node)
85 85 

  		





  86
  86
  
    
loadData :: String -- ^ Cluster/URL to use as source


  		





  87
  
  
    
         -> IO (Result (NameAssoc, Node.AssocList,


  		





  88
  
  
    
                        NameAssoc, Instance.AssocList))


  		





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


  		





  89
  88
  
    
loadData master = do -- IO monad


  		





  90
  89
  
    
  let url = formatHost master


  		





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


  		





  ......




  94
  93
  
    
    node_data <- node_body >>= getNodes


  		





  95
  94
  
    
    let (node_names, node_idx) = assignIndices node_data


  		





  96
  95
  
    
    inst_data <- inst_body >>= getInstances node_names


  		





  97
  
  
    
    let (inst_names, inst_idx) = assignIndices inst_data


  		





  98
  
  
    
    return (node_names, node_idx, inst_names, inst_idx)


  		





  
  96
  
    
    let (_, inst_idx) = assignIndices inst_data


  		





  
  97
  
    
    return (node_idx, inst_idx)


  		












Also available in:
  Unified diff