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