Work around bug #1694 in BSL.groupBy [fbt]

norm2782 · Sep 14, 2007 · 9994c0b · 9994c0b
1 parent 89326ac
commit 9994c0b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Data/ListLike/Instances.hs b/src/Data/ListLike/Instances.hs
@@ -262,7 +262,8 @@ instance ListLike BSL.ByteString Word8 where
     --deleteFirstsBy = BSL.deleteFirstsBy
     --unionBy = BSL.unionBy
     --intersectBy = BSL.intersectBy
-    groupBy f = fromList . BSL.groupBy f
+    -- BSL.groupBy is broken. groupBy f = fromList . BSL.groupBy f
+    groupBy func = map fromList . L.groupBy func . toList
     --sortBy = BSL.sortBy
     --insertBy = BSL.insertBy
     genericLength = fromInteger . fromIntegral . BSL.length