diff options
| author | Brian Foley <bpfoley@google.com> | 2020-05-04 11:49:21 -0700 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-05-08 15:29:25 -0400 |
| commit | 6f6d72b2c382860a5f7a08779b2405da8473814c (patch) | |
| tree | 964bb8c790b674bb9db648695f9d6dd4dfb99897 /compiler/GHC/Utils | |
| parent | 9afd92512b41cf6c6de3a17b474d8d4bb01158c3 (diff) | |
| download | haskell-6f6d72b2c382860a5f7a08779b2405da8473814c.tar.gz | |
Remove further dead code found by a simple Python script.
Avoid removing some functions that are part of an API even
though they're not used in-tree at the moment.
Diffstat (limited to 'compiler/GHC/Utils')
| -rw-r--r-- | compiler/GHC/Utils/Misc.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/compiler/GHC/Utils/Misc.hs b/compiler/GHC/Utils/Misc.hs index b191507fca..6f0c0a6aa5 100644 --- a/compiler/GHC/Utils/Misc.hs +++ b/compiler/GHC/Utils/Misc.hs @@ -29,7 +29,7 @@ module GHC.Utils.Misc ( unzipWith, mapFst, mapSnd, chkAppend, - mapAndUnzip, mapAndUnzip3, mapAccumL2, + mapAndUnzip, mapAndUnzip3, filterOut, partitionWith, dropWhileEndLE, spanEnd, last2, lastMaybe, @@ -444,12 +444,6 @@ zipAndUnzip (a:as) (b:bs) (a:rs1, b:rs2) zipAndUnzip _ _ = ([],[]) -mapAccumL2 :: (s1 -> s2 -> a -> (s1, s2, b)) -> s1 -> s2 -> [a] -> (s1, s2, [b]) -mapAccumL2 f s1 s2 xs = (s1', s2', ys) - where ((s1', s2'), ys) = mapAccumL (\(s1, s2) x -> case f s1 s2 x of - (s1', s2', y) -> ((s1', s2'), y)) - (s1, s2) xs - -- | @atLength atLen atEnd ls n@ unravels list @ls@ to position @n@. Precisely: -- -- @ |