souplesse

commit 7a1901af7b968419036433e3d44a62a60d1d7e9d
parent 886089fbcd2787b1f7c4872fb6c862135fa0059c
Author: Daniel Barlow <dan@telent.net>
Date:   Sun, 10 Nov 2024 16:18:38 +0000

format session duration in calendar

Diffstat:
M
app/Main.hs
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git 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
 <p>A calendar view goes here
 <ul>
     $forall s <- sessions'
-        <li>#{show $ sessionStartTime s}  #{show $ sessionDuration s}
+        <li>#{show $ sessionStartTime s}  #{show $ getPgInterval (sessionDuration s)}
 
 
 <form action="/upload" method=post enctype="multipart/form-data">