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)