format session duration in calendar
This commit is contained in:
parent
886089fbcd
commit
7a1901af7b
@ -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">
|
||||
|
Loading…
Reference in New Issue
Block a user