{-# LANGUAGE DeriveGeneric #-}

module Model.School where

import GHC.Generics
import Data.Yaml

data School = School
  { name :: String
  , location :: Maybe String
  } deriving (Show, Read, Eq, Generic)

instance FromJSON School