LGTM, Thanks
On Wed, Dec 4, 2013 at 3:03 PM, Klaus Aehlig <[email protected]> wrote: > ...to improve readability. > > Signed-off-by: Klaus Aehlig <[email protected]> > --- > src/Ganeti/JQScheduler.hs | 4 +--- > 1 file changed, 1 insertion(+), 3 deletions(-) > > diff --git a/src/Ganeti/JQScheduler.hs b/src/Ganeti/JQScheduler.hs > index df56551..09a8a8e 100644 > --- a/src/Ganeti/JQScheduler.hs > +++ b/src/Ganeti/JQScheduler.hs > @@ -140,9 +140,7 @@ updateJob state jb = do > -- and the jobs that were removed. > sortoutFinishedJobs :: Queue -> (Queue, [QueuedJob]) > sortoutFinishedJobs queue = > - let (run', fin) = partition > - ((<= JOB_STATUS_RUNNING) . calcJobStatus . jJob) > - . qRunning $ queue > + let (fin, run') = partition (jobFinalized . jJob) . qRunning $ queue > in (queue {qRunning=run'}, map jJob fin) > > -- | Actually clean up the finished jobs. This is the IO wrapper around > -- > 1.8.4.1 > >
