src/Model/Company.hs


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

{-# LANGUAGE DeriveGeneric #-}

module Model.Company where

import GHC.Generics
import Data.Yaml

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

instance FromJSON Company