diff options
| author | Chris Wells <chris@mathematicaster.org> | 2024-12-19 11:46:31 -0600 |
|---|---|---|
| committer | Chris Wells <chris@mathematicaster.org> | 2024-12-19 11:46:31 -0600 |
| commit | cbdb612f85355930ea7a6fbc453edbdf76715f69 (patch) | |
| tree | c71441d654c6727a49719c51e8ce16c9e9f0bb54 /src/Data/Presentation.hs | |
| parent | 23c9c4e32d2f54aae627c1cff7bc7fc91e771e3d (diff) | |
| download | cv-cbdb612f85355930ea7a6fbc453edbdf76715f69.tar cv-cbdb612f85355930ea7a6fbc453edbdf76715f69.tar.gz cv-cbdb612f85355930ea7a6fbc453edbdf76715f69.tar.bz2 cv-cbdb612f85355930ea7a6fbc453edbdf76715f69.tar.lz cv-cbdb612f85355930ea7a6fbc453edbdf76715f69.tar.xz cv-cbdb612f85355930ea7a6fbc453edbdf76715f69.tar.zst cv-cbdb612f85355930ea7a6fbc453edbdf76715f69.zip | |
Thinking about doing this in haskell
Diffstat (limited to 'src/Data/Presentation.hs')
| -rw-r--r-- | src/Data/Presentation.hs | 29 |
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) |