Add FIXME

src/MA/Algorithm/Split.hs

@@ -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'