1 files changed, 29 insertions, 0 deletions
diff --git a/src/Data/Presentation.hs b/src/Data/Presentation.hs
new file mode 100644
index 0000000..fd6ee7a
--- /dev/null
+++ b/src/Data/Presentation.hs
@@ -0,0 +1,29 @@
+module Data.Presentation
+    ( Presentation (..)
+    , EventType (..)
+    ) where
+
+
+data Presentation a = Presentation
+    { date :: !Day
+    , title :: !a
+    , event :: !a
+    , location :: !a
+    , eventType :: !EventType
+    , attendenceType :: !AttendenceType
+    } deriving (Eq, Foldable, Functor, Generic, Ord, Show, Traversable)
+
+
+data AttendenceType
+    = Invited
+    | Contributed
+    deriving (Eq, Generic, Ord, Show)
+
+
+data EventType
+    = Conference
+    | Colloquium
+    | Seminar
+    | Workshop
+    | AtHome
+    deriving (Eq, Generic, Ord, Show)