28 lines
457 B
Haskell
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
|