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