Revision 7dd21737
| b/src/Ganeti/JQScheduler.hs | ||
|---|---|---|
| 166 | 166 |
scheduleSomeJobs :: JQStatus -> IO () |
| 167 | 167 |
scheduleSomeJobs qstate = do |
| 168 | 168 |
chosen <- atomicModifyIORef (jqJobs qstate) selectJobsToRun |
| 169 |
unless (null chosen) . logInfo . (++) "Staring jobs: " . commaJoin |
|
| 169 |
unless (null chosen) . logInfo . (++) "Starting jobs: " . commaJoin
|
|
| 170 | 170 |
$ map (show . fromJobId . qjId) chosen |
| 171 | 171 |
JQ.startJobs chosen |
| 172 | 172 |
|
Also available in: Unified diff