diff options
-rw-r--r-- | src/Types/Session.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Types/Session.hs b/src/Types/Session.hs index 210cd28..2f17de9 100644 --- a/src/Types/Session.hs +++ b/src/Types/Session.hs @@ -13,6 +13,10 @@ data Session = Session , currentClock :: Clock } deriving (Eq) +freshSession :: Session +freshSession = Session { currentClass = Nothing + , currentClock = CountDownClock } + -- If we were using a proper monad stack, this should be of type App -- Cookie where it uses the reader monad to get the CalendarTime and -- maybe the session from the state monad |