format session duration in calendar

This commit is contained in:
Daniel Barlow 2024-11-10 16:18:38 +00:00
parent 886089fbcd
commit 7a1901af7b

View File

@ -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">