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

Store.save takes Track not Point

Browse Source
This commit is contained in:
Daniel Barlow 2024-11-07 16:42:53 +00:00
parent 04797427fc
commit 4ca505ada1
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/Main.hs
View File

@ -131,7 +131,7 @@ postUploadR = do
bs <- fileSourceByteString $ fileInfo upload bs <- fileSourceByteString $ fileInfo upload
case Track.parseBS (fromStrict bs) of case Track.parseBS (fromStrict bs) of
Right points -> do Right points -> do
runDB $ mapM_ Store.save points runDB $ Store.save points
defaultLayout [whamlet|<p>#{List.length points} points - thanks!|] defaultLayout [whamlet|<p>#{List.length points} points - thanks!|]
Left _ -> Left _ ->
defaultLayout defaultLayout

2
lib/Store.hs
View File

@ -66,7 +66,7 @@ toPoint entity =
(trkptPower tkp) (trkptPower tkp)
(trkptHeartRate tkp) (trkptHeartRate tkp)
save p = do insert $ fromPoint p save p = do mapM_ (insert . fromPoint) p
fetch :: (MonadIO m) => UTCTime -> NominalDiffTime -> ReaderT SqlBackend m [Point] fetch :: (MonadIO m) => UTCTime -> NominalDiffTime -> ReaderT SqlBackend m [Point]
fetch start duration = do fetch start duration = do