Skip to content
Snippets Groups Projects
Commit 0cd517a7 authored by BinderDavid's avatar BinderDavid
Browse files

Avoid partial list functions

parent 9536f107
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 3 additions and 2 deletions
src/HpcUtils.hs
+ 3
− 2
View file @ 0cd517a7
...@@ -15,10 +15,11 @@ dropWhileEndLE p = foldr (\x r -> if null r && p x then [] else x : r) [] ...@@ -15,10 +15,11 @@ dropWhileEndLE p = foldr (\x r -> if null r && p x then [] else x : r) []
grabHpcPos :: Map.Map Int String -> HpcPos -> String grabHpcPos :: Map.Map Int String -> HpcPos -> String
grabHpcPos hsMap srcspan = grabHpcPos hsMap srcspan =
case lns of case lns of
[] -> error "grabHpcPos: invalid source span"
[ln] -> [ln] ->
take ((c2 - c1) + 1) $ drop (c1 - 1) ln take ((c2 - c1) + 1) $ drop (c1 - 1) ln
_ -> hd : tl ->
let lns1 = drop (c1 - 1) (head lns) : tail lns let lns1 = drop (c1 - 1) hd : tl
lns2 = init lns1 ++ [take (c2 + 1) (last lns1)] lns2 = init lns1 ++ [take (c2 + 1) (last lns1)]
in foldl1 (\xs ys -> xs ++ "\n" ++ ys) lns2 in foldl1 (\xs ys -> xs ++ "\n" ++ ys) lns2
where where
......
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