fix player name type
This commit is contained in:
parent
fa2dcbde01
commit
0a6b03fd69
1 changed files with 1 additions and 1 deletions
|
|
@ -6,7 +6,7 @@ newtype PlayerName = MkPlayerName Text
|
|||
deriving (Eq, Show, Ord)
|
||||
|
||||
data PlayerState = MkPlayerState
|
||||
{ name :: Text
|
||||
{ name :: PlayerName
|
||||
, score :: Int
|
||||
}
|
||||
deriving (Eq, Show)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue