18 lines
362 B
Haskell
18 lines
362 B
Haskell
|
{-# 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
|