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