Revision 94e05c32 Ganeti/HTools/Luxi.hs

b/Ganeti/HTools/Luxi.hs
144 144 

  		





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


  		





  146
  146
  
    
loadData :: String -- ^ Unix socket to use as source


  		





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


  		





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


  		





  148
  148
  
    
loadData master =


  		





  149
  149
  
    
  E.bracket


  		





  150
  150
  
    
       (L.getClient master)


  		





  ......




  157
  157
  
    
            let (node_names, node_idx) = assignIndices node_data


  		





  158
  158
  
    
            inst_data <- instances >>= getInstances node_names


  		





  159
  159
  
    
            let (_, inst_idx) = assignIndices inst_data


  		





  160
  
  
    
            return (node_idx, inst_idx)


  		





  
  160
  
    
            return (node_idx, inst_idx, [])


  		





  161
  161
  
    
       )


  		












Also available in:
  Unified diff