dan/souplesse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

replace foo >>= return . bar with <&>

Browse Source
This commit is contained in:
Daniel Barlow 2024-10-31 00:38:35 +00:00
parent e15c42ff4a
commit ea313b7f6e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/Track.hs
View File

@ -25,6 +25,7 @@ import Data.Time.ISO8601 qualified
import Debug.Trace (trace, traceShow) import Debug.Trace (trace, traceShow)
import Text.XML import Text.XML
import Text.XML.Cursor as Cursor import Text.XML.Cursor as Cursor
import Data.Functor((<&>))
data Pos = Pos Float Float deriving (Show, Eq) data Pos = Pos Float Float deriving (Show, Eq)
@ -91,10 +92,10 @@ elToPoint c =
Right $ Right $
Point Point
(Pos lat lon) (Pos lat lon)
(listToMaybe ele >>= return . asFloat) (listToMaybe ele <&> asFloat)
utime utime
(listToMaybe cadence >>= return . asInt) (listToMaybe cadence <&> asInt)
(listToMaybe power >>= return . asInt) (listToMaybe power <&> asInt)
Nothing Nothing
where where
asFloat v = (read (Data.Text.unpack v) :: Float) asFloat v = (read (Data.Text.unpack v) :: Float)