wizard-wipeout/src-lib/Library/Types/Communication.hs
2023-12-10 20:12:53 +01:00

28 lines
457 B
Haskell

{-# LANGUAGE DeriveGeneric #-}
module Library.Types.Communication where
import Data.Aeson
import Data.UUID
import GHC.Generics
data ServerMessage
= ServerQuit
| AcceptClient
{ acClientUUID :: UUID
}
deriving (Eq, Show, Generic)
instance FromJSON ServerMessage
instance ToJSON ServerMessage
data ClientMessages
= ClientQuit
| IdRequest
deriving (Eq, Show, Generic)
instance FromJSON ClientMessages
instance ToJSON ClientMessages