2019-11-12 23:25:00 +01:00
|
|
|
{-# LANGUAGE NamedFieldPuns #-}
|
2019-11-05 18:14:24 +01:00
|
|
|
module Player (
|
2019-11-12 23:25:00 +01:00
|
|
|
T(..)
|
|
|
|
, showDebug
|
2019-11-05 18:14:24 +01:00
|
|
|
) where
|
|
|
|
|
|
|
|
import Data.Text (Text)
|
|
|
|
import Hanafuda.KoiKoi (PlayerID)
|
2019-11-12 23:25:00 +01:00
|
|
|
import Text.Printf (printf)
|
2019-11-05 18:14:24 +01:00
|
|
|
|
|
|
|
data T = T {
|
|
|
|
playerID :: PlayerID
|
|
|
|
, name :: Text
|
|
|
|
} deriving (Show)
|
2019-11-12 23:25:00 +01:00
|
|
|
|
|
|
|
showDebug :: T -> String
|
2019-12-26 19:31:43 +01:00
|
|
|
showDebug (T {playerID, name}) = printf "%s (%s)" name (show playerID)
|