src/Model/Job.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

{-# 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