diff options
Diffstat (limited to 'compiler/utils/Util.hs')
| -rw-r--r-- | compiler/utils/Util.hs | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/compiler/utils/Util.hs b/compiler/utils/Util.hs index a4520ed679..d0a38ec240 100644 --- a/compiler/utils/Util.hs +++ b/compiler/utils/Util.hs @@ -25,7 +25,7 @@ module Util ( mapFst, mapSnd, chkAppend, mapAndUnzip, mapAndUnzip3, mapAccumL2, - nOfThem, filterOut, partitionWith, splitEithers, + nOfThem, filterOut, partitionWith, dropWhileEndLE, spanEnd, @@ -296,14 +296,6 @@ partitionWith f (x:xs) = case f x of Right c -> (bs, c:cs) where (bs,cs) = partitionWith f xs -splitEithers :: [Either a b] -> ([a], [b]) --- ^ Teases a list of 'Either's apart into two lists -splitEithers [] = ([],[]) -splitEithers (e : es) = case e of - Left x -> (x:xs, ys) - Right y -> (xs, y:ys) - where (xs,ys) = splitEithers es - chkAppend :: [a] -> [a] -> [a] -- Checks for the second argument being empty -- Used in situations where that situation is common |