Skip to content
Browse files

Fix another partial fromJust --> fromMaybe.

I've ran into a file that tickled this one too - didn't bother to investigate.
  • Loading branch information...
1 parent 1ab1e70 commit 5ac26ed7f87741dfaa3fefa43943fbb243a9fe05 @TomMD TomMD committed Sep 3, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 Data/GPS/Gps2HtmlReport/DrawOsm.hs
View
2 Data/GPS/Gps2HtmlReport/DrawOsm.hs
@@ -154,7 +154,7 @@ drawLines (wpt:wpts) tCoord img = do
end = pixelPosForCoord [head wpts] tCoord
minEle = fromMaybe 0 $ fmap snd $ findPoint wpts wpt ele (<)
maxEle = fromMaybe 0 $ fmap snd $ findPoint wpts wpt ele (>)
- drawLine' start end img (minEle,fromJust $ ele wpt,maxEle) 0
+ drawLine' start end img (minEle,fromMaybe 0 $ ele wpt,maxEle) 0
drawLines wpts tCoord img
-- | This is a fix on the fact that the 'drawLine' function

0 comments on commit 5ac26ed

Please sign in to comment.
Something went wrong with that request. Please try again.