From c8146bbff4515aeb877b9efbb9f0c635da7a7a92 Mon Sep 17 00:00:00 2001 From: fr33domlover Date: Sun, 8 Jul 2018 21:56:08 +0000 Subject: [PATCH] Data.List.Local: Comment out the unused groupByFst --- src/Data/List/Local.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/Data/List/Local.hs b/src/Data/List/Local.hs index 761b0e3..06405e0 100644 --- a/src/Data/List/Local.hs +++ b/src/Data/List/Local.hs @@ -27,11 +27,11 @@ import Data.List.NonEmpty (NonEmpty (..), (<|)) -- | Takes a list of pairs and groups them by consecutive ranges with equal -- first element. Returns a list of pairs, where each pair corresponds to one -- such range. -groupByFst :: Eq a => [(a, b)] -> [(a, [b])] -groupByFst [] = [] -groupByFst ((x, y):ps) = - let (same, rest) = span ((== x) . fst) ps - in (x, y : map snd same) : groupByFst rest +--groupByFst :: Eq a => [(a, b)] -> [(a, [b])] +--groupByFst [] = [] +--groupByFst ((x, y):ps) = +-- let (same, rest) = span ((== x) . fst) ps +-- in (x, y : map snd same) : groupByFst rest -- | Group together sublists of Just items, and drop the Nothing items. --