Commit 65346865 authored by Joachim Breitner's avatar Joachim Breitner

Fix comment about dropWhileEndLE

parent d15d7044
...@@ -4,7 +4,7 @@ import Trace.Hpc.Util ...@@ -4,7 +4,7 @@ import Trace.Hpc.Util
import qualified Data.Map as Map import qualified Data.Map as Map
dropWhileEndLE :: (a -> Bool) -> [a] -> [a] 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) [] dropWhileEndLE p = foldr (\x r -> if null r && p x then [] else x:r) []
-- turns \n into ' ' -- turns \n into ' '
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment