Commit 145dda57 authored by Hans-Peter Deifel's avatar Hans-Peter Deifel
Browse files


parent ea68f6c1
......@@ -138,6 +138,7 @@ addBlocksToQueue b blocks = ask >>= \(as, queue) -> lift $ do
blocks' <- if bInQueue
then return blocks
-- FIXME Is this maybeAdd really needed
else deleteLargestM (Partition.blockSize (partition as)) (maybeAdd b blocks)
mapM_ (Queue.enqueue queue) blocks'
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment