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

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

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

import Data.Aeson
import GHC.Generics
import Test.QuickCheck
import Nomyx.Api.Model.NewPlayer


data Player = Player
    { name :: String
    , id_ :: Integer
    } deriving (Show, Eq, Generic)

instance FromJSON Player
instance ToJSON Player
--instance Arbitrary Player where
--    arbitrary = Player <$> arbitrary <*> arbitrary