From 471449985ab7b48bc06ffba8619a3e9a6b65cd00 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Wed, 9 Mar 2016 01:51:39 -0500 Subject: [PATCH] :fire: sublist. --- src/Range.hs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/Range.hs b/src/Range.hs index 4b75f581c..1a71be844 100644 --- a/src/Range.hs +++ b/src/Range.hs @@ -23,10 +23,6 @@ rangeLength range = end range - start range substring :: Range -> T.Text -> T.Text substring range = T.take (rangeLength range) . T.drop (start range) --- | Return the portion of the list identified by the given range. -sublist :: Range -> [a] -> [a] -sublist range = take (rangeLength range) . drop (start range) - -- | Return a range that covers the entire text. totalRange :: Foldable f => f a -> Range totalRange t = Range 0 $ length t