diff --git a/src/Data/RefinablePartition.hs b/src/Data/RefinablePartition.hs
index 1a6b7b2c74c16c3e8133ca55d55fa0656c2c2afd..bf74adbdc463360f4037a84f9bb8f46e350ece25 100644
--- a/src/Data/RefinablePartition.hs
+++ b/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.