src/Model/School.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

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