From 67ecff7ad383640bc73d64edc2506c7cc648a134 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Mon, 19 Jun 2017 11:57:23 +0200 Subject: Move src/ to lib/, put Init.hs in src/ --- src/Data/List/Extended.hs | 15 --------------- 1 file changed, 15 deletions(-) delete mode 100644 src/Data/List/Extended.hs (limited to 'src/Data/List') diff --git a/src/Data/List/Extended.hs b/src/Data/List/Extended.hs deleted file mode 100644 index 485cba8..0000000 --- a/src/Data/List/Extended.hs +++ /dev/null @@ -1,15 +0,0 @@ -module Data.List.Extended - ( module Data.List - , breakWhen - ) where - -import Data.List - --- | Like 'break', but can act on the entire tail of the list. -breakWhen :: ([a] -> Bool) -> [a] -> ([a], [a]) -breakWhen predicate = go [] - where - go buf [] = (reverse buf, []) - go buf (x : xs) - | predicate (x : xs) = (reverse buf, x : xs) - | otherwise = go (x : buf) xs -- cgit v1.2.3