Revision ccc817a2 htools/Ganeti/HTools/Program/Hbal.hs

b/htools/Ganeti/HTools/Program/Hbal.hs
160 160 

  		





  161
  161
  
    
-- | Polls a set of jobs at a fixed interval until all are finished


  		





  162
  162
  
    
-- one way or another.


  		





  163
  
  
    
waitForJobs :: L.Client -> [String] -> IO (Result [JobStatus])


  		





  
  163
  
    
waitForJobs :: L.Client -> [L.JobId] -> IO (Result [JobStatus])


  		





  164
  164
  
    
waitForJobs client jids = do


  		





  165
  165
  
    
  sts <- L.queryJobsStatus client jids


  		





  166
  166
  
    
  case sts of


  		












Also available in:
  Unified diff