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