wizard-wipeout/src-lib/Library/Types/Communication.hs

29 lines
457 B
Haskell
Raw Normal View History

2023-12-10 19:12:53 +00:00
{-# 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