{-# LANGUAGE TemplateHaskell #-} module Web.Mackerel.Types.Invitation where import Data.Aeson import qualified Data.Aeson as Aeson import Data.Aeson.TH (deriveJSON) import Data.Aeson.Types (typeMismatch) import qualified Data.Text as Text import Web.Mackerel.Internal.TH import Web.Mackerel.Types.Authority data Invitation = Invitation { invitationEmail :: String, invitationAuthority :: Authority } deriving (Eq, Show) $(deriveJSON options ''Invitation)