nomyx-api-0.1.0: src/Nomyx/Api/Model/NewPlayer.hs

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}

module Nomyx.Api.Model.NewPlayer
    ( NewPlayer (..)
    ) where

import Data.Aeson
import GHC.Generics
import Test.QuickCheck


data NewPlayer = NewPlayer
    { name :: String
    } deriving (Show, Eq, Generic)

instance FromJSON NewPlayer
instance ToJSON NewPlayer
instance Arbitrary NewPlayer where
    arbitrary = NewPlayer <$> arbitrary