Revision d605e261 src/Ganeti/JQueue.hs
| b/src/Ganeti/JQueue.hs | ||
|---|---|---|
| 444 | 444 |
startJobs :: [QueuedJob] -> IO () |
| 445 | 445 |
startJobs jobs = do |
| 446 | 446 |
socketpath <- defaultMasterSocket |
| 447 |
client <- getClient socketpath |
|
| 447 |
client <- getLuxiClient socketpath
|
|
| 448 | 448 |
pickupResults <- mapM (flip callMethod client . PickupJob . qjId) jobs |
| 449 | 449 |
let failures = map show $ justBad pickupResults |
| 450 | 450 |
unless (null failures) |
Also available in: Unified diff