From 0d19c4f8dc26cf30a7fd18a342ffbee011bd035b Mon Sep 17 00:00:00 2001 From: Tissevert Date: Wed, 20 Nov 2019 18:26:23 +0100 Subject: [PATCH] Use the newest requirements in lib to define an ID prefix for the Session type --- src/Session.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Session.hs b/src/Session.hs index 279329a..177c88f 100644 --- a/src/Session.hs +++ b/src/Session.hs @@ -9,12 +9,14 @@ module Session ( ) where import Data.Text (Text) -import qualified Hanafuda.ID as Hanafuda (ID) +import qualified Hanafuda.ID as Hanafuda (ID, IDType(..), Prefix(..)) import Hanafuda.KoiKoi (PlayerID) import Network.WebSockets (Connection) import qualified Player (T(..)) type ID = Hanafuda.ID T +instance Hanafuda.IDType T where + prefix = Hanafuda.Prefix "Session" type Status = Maybe Player.T data T = T { connection :: Connection