skulk/numbersquare
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix player name type

Browse source
This commit is contained in:
Sidharth Kulkarni 2026-05-03 14:10:20 -07:00
parent fa2dcbde01
commit 0a6b03fd69
Signed by: skulk
SSH key fingerprint: SHA256:Jby+S9d1WmwqnXIrngHgccYNHz+cYquxN1zm3ym3Kbg
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Types/Player.hs
View file

@ -6,7 +6,7 @@ newtype PlayerName = MkPlayerName Text
deriving (Eq, Show, Ord) deriving (Eq, Show, Ord)
data PlayerState = MkPlayerState data PlayerState = MkPlayerState
{ name :: Text { name :: PlayerName
, score :: Int , score :: Int
} }
deriving (Eq, Show) deriving (Eq, Show)