From 2576c23a83b30f39c67d169f1bcb0fbcfd218286 Mon Sep 17 00:00:00 2001
From: Hans-Peter Deifel <hpd@hpdeifel.de>
Date: Thu, 4 Oct 2018 00:47:13 +0200
Subject: [PATCH] Remove commented out code

---
 src/Data/RefinablePartition.hs | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/src/Data/RefinablePartition.hs b/src/Data/RefinablePartition.hs
index 1a6b7b2..bf74adb 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.
-- 
GitLab