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

extract function for gpxtpx extensions

Browse Source
This commit is contained in:
Daniel Barlow 2024-10-31 13:20:16 +00:00
parent 63f54a9355
commit 10c7d68f31
1 changed files with 6 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lib/Track.hs
View File

@ -74,21 +74,12 @@ elToPoint c =
>>= child >>= child
>>= element (tpxNS "TrackPointExtension") >>= element (tpxNS "TrackPointExtension")
>>= child >>= child
cadence = extn n =
gpxtpx gpxtpx >>= element n >>= child >>= content
>>= element (tpxNS "cad")
>>= child cadence = extn (tpxNS "cad")
>>= content hr = extn (tpxNS "hr")
hr = power = extn "{http://www.garmin.com/xmlschemas/PowerExtension/v1}PowerInWatts"
gpxtpx
>>= element (tpxNS "hr")
>>= child
>>= content
power =
gpxtpx
>>= element (Name "PowerInWatts" (Just "http://www.garmin.com/xmlschemas/PowerExtension/v1") Nothing)
>>= child
>>= content
parsedTime = parsedTime =
listToMaybe ts listToMaybe ts
>>= (Data.Time.ISO8601.parseISO8601 . Data.Text.unpack) >>= (Data.Time.ISO8601.parseISO8601 . Data.Text.unpack)