crude sessions

1 files changed, 17 insertions, 0 deletions

diff --git a/src/Types/Session.hs b/src/Types/Session.hs
new file mode 100644
index 0000000..25df029
--- /dev/null
+++ b/src/Types/Session.hs
@@ -0,0 +1,17 @@
+module Types.Session where
+
+import Types.Classes
+import Types.Clocks
+import Network.CGI.Cookie
+import System.Time (CalendarTime)
+
+data Session = Session
+    { currentClass :: Maybe Class
+    , currentClock :: Clock }
+    deriving (Eq)
+
+makeClassCookie             :: CalendarTime -> Session -> Cookie
+makeClassCookie now session = undefined
+
+makeClockCookie             :: CalendarTime -> Session -> Cookie
+makeClockCookie now session = undefined