From 4114bd359d3cedcf6680c22594863151f7ab6f93 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Fri, 20 Mar 2015 14:08:58 +0000
Subject: freshSession

---
 src/Types/Session.hs | 4 ++++
 1 file changed, 4 insertions(+)

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
-- 
cgit v1.2.3