From 7a1901af7b968419036433e3d44a62a60d1d7e9d Mon Sep 17 00:00:00 2001 From: Daniel Barlow Date: Sun, 10 Nov 2024 16:18:38 +0000 Subject: [PATCH] format session duration in calendar --- app/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index 9cd42b3..63b96d7 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -11,7 +11,7 @@ import Control.Monad.Trans.Resource (runResourceT) import Data.ByteString.Lazy as BS import Data.List as List import Data.Time.Clock.POSIX (posixSecondsToUTCTime) -import Database.Persist.Postgresql (ConnectionPool, ConnectionString, SqlBackend, runMigration, runSqlPool, withPostgresqlPool) +import Database.Persist.Postgresql (ConnectionPool, ConnectionString, SqlBackend, runMigration, runSqlPool, getPgInterval, withPostgresqlPool) import Debug.Trace (traceShow) import Session import Store @@ -65,7 +65,7 @@ getCalendarR = do

A calendar view goes here