{-# LANGUAGE DeriveGeneric #-}
module Message.Client (
    Message(..)
  ) where

import Data.Aeson (FromJSON(..), genericParseJSON, defaultOptions)
import Game (Game)
import GHC.Generics (Generic)

data Message =
    NewGame
  | Resume {
      game :: Game
    } deriving (Generic)

instance FromJSON Message where
  parseJSON = genericParseJSON defaultOptions