18 lines
350 B
Haskell
18 lines
350 B
Haskell
{-# LANGUAGE NamedFieldPuns #-}
|
|
module Player (
|
|
T(..)
|
|
, showDebug
|
|
) where
|
|
|
|
import Data.Text (Text)
|
|
import Hanafuda.KoiKoi (PlayerID)
|
|
import Text.Printf (printf)
|
|
|
|
data T = T {
|
|
playerID :: PlayerID
|
|
, name :: Text
|
|
} deriving (Show)
|
|
|
|
showDebug :: T -> String
|
|
showDebug (T {playerID, name}) = printf "%s (%s)" name (show playerID)
|