module HaskellCourse where data MiniCourse = MiniCourse { title ∷ String , startDate ∷ Date , endDate ∷ Date , schedule ∷ [(ScheduleDay, Timetable, Location)] , spots ∷ Integer , certificate ∷ Bool , teachers ∷ [Person] , contact ∷ String } haskell ∷ MiniCourse haskell = MiniCourse { title = "Functional programming with Haskell" , startDate = (2017, 3, 24) -- no sessions on Holidays: , endDate = (2017, 5, 26) -- 14/4 & 21/4 , schedule = [(Every Friday, T12, IMD "A103")] , spots = 40 , certificate = False -- not guaranteed! , teachers = ["Thanos Tsouanas", "Elias Gabriel Amaral da Silva"] , contact = "thanos" ++ ('@' : "imd.ufrn.br") } -- Subscribe to the event via SIGAA → Extensão → Eventos -- (Search for «Haskell» to find the event.)