{-# 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