Revision ea174b21 src/Ganeti/JQScheduler.hs

b/src/Ganeti/JQScheduler.hs
140 140
updateJob state jb = do
141 141
  jb' <- readJobStatus jb
142 142
  maybe (return ()) (modifyJobs state . onRunningJobs . updateJobStatus) jb'
143
  when (maybe True (jobFinalized . jJob) jb') . (>> return ()) . forkIO $ do
144
    logDebug "Scheduler noticed a job to have finished."
145
    cleanupFinishedJobs state
146
    scheduleSomeJobs state
143 147

  
144 148
-- | Sort out the finished jobs from the monitored part of the queue.
145 149
-- This is the pure part, splitting the queue into a remaining queue

Also available in: Unified diff