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

add cadence/power/hr to json

Browse Source
This commit is contained in:
Daniel Barlow 2024-11-06 19:13:47 +00:00
parent 8bd67b2096
commit e111a323f7
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/Store.hs
View File

@ -61,9 +61,9 @@ toPoint entity =
in Point in Point
pos pos
(trkptTime tkp) (trkptTime tkp)
Nothing (trkptCadence tkp)
Nothing (trkptPower tkp)
Nothing (trkptHeartRate tkp)
save p = do insert $ fromPoint p save p = do insert $ fromPoint p

5
lib/Track.hs
View File

@ -58,7 +58,10 @@ instance ToJSON Point where
toJSON Point {..} = toJSON Point {..} =
object object
[ "pos" .= pos, [ "pos" .= pos,
"time" .= time "time" .= time,
"cadence" .= cadence,
"power" .= power,
"heartRate" .= heartRate
] ]
-- TODO do we even need this type? -- TODO do we even need this type?