1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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)
|
