{-# LANGUAGE DeriveGeneric #-} module Model.Job where import Data.Yaml import GHC.Generics import Model.Company import Model.Date import Model.Translated data Job = Job { name :: Translated , description :: Translated , details :: Maybe [Translated] , technos :: Maybe [String] , company :: Company , beginDate :: Date , endDate :: Maybe Date } deriving (Show, Read, Eq, Generic) instance FromJSON Job