21 lines
400 B
Haskell
21 lines
400 B
Haskell
{-# LANGUAGE DeriveGeneric #-}
|
|
module Message.Server (
|
|
Message(..)
|
|
) where
|
|
|
|
import Data.Aeson (ToJSON(..), genericToEncoding, defaultOptions)
|
|
import Area (Area)
|
|
import Game (Game)
|
|
import GHC.Generics (Generic)
|
|
|
|
data Message =
|
|
Game Game
|
|
| Error {
|
|
error :: String
|
|
}
|
|
| Area Area
|
|
deriving (Generic)
|
|
|
|
instance ToJSON Message where
|
|
toEncoding = genericToEncoding defaultOptions
|