Use the Show instance of IDs to improve debug
This commit is contained in:
parent
0ea6fec5ae
commit
555e4386e3
1 changed files with 1 additions and 2 deletions
|
@ -5,7 +5,6 @@ module Player (
|
|||
) where
|
||||
|
||||
import Data.Text (Text)
|
||||
import Hanafuda.ID (ID(..))
|
||||
import Hanafuda.KoiKoi (PlayerID)
|
||||
import Text.Printf (printf)
|
||||
|
||||
|
@ -15,4 +14,4 @@ data T = T {
|
|||
} deriving (Show)
|
||||
|
||||
showDebug :: T -> String
|
||||
showDebug (T {playerID, name}) = printf "%s (%d)" name (getID playerID)
|
||||
showDebug (T {playerID, name}) = printf "%s (%s)" name (show playerID)
|
||||
|
|
Loading…
Reference in a new issue