add Session.refreshDrafts

hides some gnarly raw sql inside the module

lib/Session.hs

@@ -16,7 +16,7 @@
 module Session
   ( Session (..),
     recents,
-    updateSessions,
+    refreshDrafts,
     migrateSession,
   )
 where
@@ -31,6 +31,7 @@ import Database.Persist
 import Database.Persist.Postgresql
   ( PgInterval,
     SqlBackend,
+    rawExecute
   )
 import Database.Persist.TH
 import Text.RawString.QQ (r)
@@ -45,8 +46,8 @@ Session
     notes String Maybe
 |]
 
-updateSessions :: Text
-updateSessions =
+updateSql :: Text
+updateSql =
   [r|
 -- delete existing drafts as new data may extend one of them
 delete from session where draft;
@@ -62,6 +63,10 @@ insert into session(start_time, duration, draft) (select time as start_time, mak
 where draft;
 |]
 
+refreshDrafts :: (MonadIO m) => ReaderT SqlBackend m ()
+refreshDrafts =
+  rawExecute updateSql []
+
 recents :: (MonadIO m) => ReaderT SqlBackend m [Session]
 recents = do
   s <- selectList [SessionDraft !=. True] [Desc SessionStartTime, LimitTo 10]

lib/Store.hs

@@ -89,7 +89,7 @@ save track = do
     then return $ Left (OverlapExists "track overlaps with existing data")
     else do
       mapM_ (insert . fromPoint) track
-      rawExecute Session.updateSessions []
+      Session.refreshDrafts
       return $ Right track
 
 fetch :: (MonadIO m) => UTCTime -> NominalDiffTime -> ReaderT SqlBackend m [Point]