diff options
Diffstat (limited to 'utils/hpc/HpcUtils.hs')
| -rw-r--r-- | utils/hpc/HpcUtils.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/utils/hpc/HpcUtils.hs b/utils/hpc/HpcUtils.hs index 73d9cd3a87..5655f837f3 100644 --- a/utils/hpc/HpcUtils.hs +++ b/utils/hpc/HpcUtils.hs @@ -3,10 +3,6 @@ module HpcUtils where import Trace.Hpc.Util import qualified Data.Map as Map -dropWhileEndLE :: (a -> Bool) -> [a] -> [a] --- Spec: dropWhileEndLE p = reverse . dropWhileEnd . reverse -dropWhileEndLE p = foldr (\x r -> if null r && p x then [] else x:r) [] - -- turns \n into ' ' -- | grab's the text behind a HpcPos; grabHpcPos :: Map.Map Int String -> HpcPos -> String |