diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-04-29 18:36:00 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-08-06 06:13:17 -0400 |
| commit | 4123414723eb57ed5d3f8e7df0001178033c2367 (patch) | |
| tree | 7021dfcce29133efae52cecd6323022bd0444f42 | |
| parent | e9c77a22d749b7f3ab84a715db68e984c8350684 (diff) | |
| download | haskell-4123414723eb57ed5d3f8e7df0001178033c2367.tar.gz | |
Make dropTail comment a haddock comment
| -rw-r--r-- | compiler/GHC/Utils/Misc.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Utils/Misc.hs b/compiler/GHC/Utils/Misc.hs index 986d95144e..3824f4ad5a 100644 --- a/compiler/GHC/Utils/Misc.hs +++ b/compiler/GHC/Utils/Misc.hs @@ -730,7 +730,7 @@ splitAtList xs ys = go 0# xs ys go n [] bs = (take (I# n) ys, bs) -- = splitAt n ys go n (_:as) (_:bs) = go (n +# 1#) as bs --- drop from the end of a list +-- | drop from the end of a list dropTail :: Int -> [a] -> [a] -- Specification: dropTail n = reverse . drop n . reverse -- Better implementation due to Joachim Breitner |