diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-20 14:08:58 +0000 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-20 14:08:58 +0000 |
commit | 4114bd359d3cedcf6680c22594863151f7ab6f93 (patch) | |
tree | a4a0d1441a22f6256bbbbc3aa280eb5c36f2c60c | |
parent | 0e58da3a90e7804fc52fae345717cb914f80f279 (diff) | |
download | sariulclocks-4114bd359d3cedcf6680c22594863151f7ab6f93.tar.gz |
freshSession
-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 |