src/Model/Degree.hs


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

{-# LANGUAGE DeriveGeneric #-}

module Model.Degree where

import GHC.Generics
import Data.Yaml

import Model.School
import Model.Translated

data Degree = Degree
  { name :: Translated
  , school :: School
  , year :: Int
  , topics :: [Translated]
  } deriving (Show, Read, Eq, Generic)

instance FromJSON Degree