morpheus-graphql-0.2.0: examples/Mythology/Character/Human.hs

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TypeFamilies  #-}
{-# LANGUAGE TypeOperators #-}

module Mythology.Character.Human
  ( Human(..)
  ) where

import           Data.Morpheus.Kind     (OBJECT)
import           Data.Morpheus.Types    (GQLType (..))
import           Data.Text              (Text)
import           GHC.Generics           (Generic)
import           Mythology.Place.Places (City (..))

data Human = Human
  { name :: Text
  , home :: City
  } deriving (Generic)

instance GQLType Human where
  type KIND Human = OBJECT