Revision ac0c5c6d src/Ganeti/Query/Server.hs

b/src/Ganeti/Query/Server.hs
216 216 
          Bad s -> return . Bad . GenericError $ s
217 217 
          Ok () -> do
218 218 
            _ <- replicateManyJobs qDir mcs [job]
219 
            _ <- forkIO $ enqueueJobs [job]
219 
            _ <- forkIO $ startJobs [job]
220 220 
            return . Ok . showJSON . fromJobId $ jid
221 221 

  		





  222
  222
  
    
handleCall qlock cfg (SubmitJob ops) =


  		





  ......




  247
  247
  
    
            when (any isBad write_results) . logWarning


  		





  248
  248
  
    
              $ "Writing some jobs failed " ++ show annotated_results


  		





  249
  249
  
    
            replicateManyJobs qDir mcs succeeded


  		





  250
  
  
    
            _ <- forkIO $ enqueueJobs succeeded


  		





  
  250
  
    
            _ <- forkIO $ startJobs succeeded


  		





  251
  251
  
    
            return . Ok . JSArray


  		





  252
  252
  
    
              . map (\(res, job) ->


  		





  253
  253
  
    
                      if isOk res


  		












Also available in:
  Unified diff