Remove commented out code

src/Data/RefinablePartition.hs

@@ -399,9 +399,6 @@ groupBy partition b predicate = do
 
   (last,blocks) <- foldM splitAt (b, []) indices
 
-  -- unless (null indices) $
-  --   setBlock partition b $ endOffset .~ head indices
-
   return (last:blocks)
 
 -- | Freeze the current refinable partition into an immutable one.