add cadence/power/hr to json

2024-11-06 19:13:47 +00:00 · 2024-11-06 19:13:47 +00:00 · e111a323f7
commit e111a323f7
parent 8bd67b2096
2 changed files with 7 additions and 4 deletions
--- a/lib/Store.hs
+++ b/lib/Store.hs
@ -61,9 +61,9 @@ toPoint entity =
   in Point
        pos
        (trkptTime tkp)
-        Nothing
-        Nothing
-        Nothing
+        (trkptCadence tkp)
+        (trkptPower tkp)
+        (trkptHeartRate tkp)

 save p = do insert $ fromPoint p

--- a/lib/Track.hs
+++ b/lib/Track.hs
@ -58,7 +58,10 @@ instance ToJSON Point where
  toJSON Point {..} =
    object
      [ "pos" .= pos,
-        "time" .= time
+        "time" .= time,
+        "cadence" .= cadence,
+        "power" .= power,
+        "heartRate" .= heartRate
      ]

 -- TODO do we even need this type?