Type.hs

-- |
-- Module: Web.WikiCFP.Scraper.Type
-- Description: data types for WikiCFP scraper
-- Maintainer: Toshio Ito <debug.ito@gmail.com>
--
-- 
module Web.WikiCFP.Scraper.Type
       ( When(..),
         Event(..),
       ) where

import Data.Text (Text)
import Data.Time (Day)

-- | Period of dates (inclusive).
data When = When { whenFrom :: !Day,
                   whenTo :: !Day
                 } deriving (Eq,Ord,Show)

-- | A conference event posted to WikiCFP site. It corresponds to a
-- row in the table you see conference pages etc, for example,
-- <http://wikicfp.com/cfp/program?id=1172>
data Event = Event { eventShortName :: !Text,
                     
                     eventURL :: !Text,
                     -- ^ URL to the WikiCFP page of this event.
                     
                     eventLongName :: !Text, 
                     eventWhen :: !(Maybe When),
                     eventWhere :: !(Maybe Text),
                     
                     eventDeadlines :: ![Day]
                     -- ^ deadlines are in an ascending order, i.e.,
                     -- the earliest deadline is the head.
                     
                   } deriving (Eq,Ord,Show)