Use the newest requirements in lib to define an ID prefix for the Session type

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