diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2014-11-01 11:37:53 +0100 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2014-11-01 11:37:53 +0100 |
| commit | 65346865f1177fc89767de09604376ffea45bd4d (patch) | |
| tree | dc1fa85e5ea99a25adf5686050e81d3bce1c1e08 /utils/hpc | |
| parent | d15d70447769c11d708e18078a475406f3b58491 (diff) | |
| download | haskell-65346865f1177fc89767de09604376ffea45bd4d.tar.gz | |
Fix comment about dropWhileEndLE
Diffstat (limited to 'utils/hpc')
| -rw-r--r-- | utils/hpc/HpcUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/hpc/HpcUtils.hs b/utils/hpc/HpcUtils.hs index 73d9cd3a87..4f98556176 100644 --- a/utils/hpc/HpcUtils.hs +++ b/utils/hpc/HpcUtils.hs @@ -4,7 +4,7 @@ import Trace.Hpc.Util import qualified Data.Map as Map dropWhileEndLE :: (a -> Bool) -> [a] -> [a] --- Spec: dropWhileEndLE p = reverse . dropWhileEnd . reverse +-- Spec: dropWhileEndLE p = reverse . dropWhile p . reverse dropWhileEndLE p = foldr (\x r -> if null r && p x then [] else x:r) [] -- turns \n into ' ' |