From 0a6b03fd695d5541b4781f15ff661e13892a71d0 Mon Sep 17 00:00:00 2001
From: Sidharth Kulkarni <kulkarnisidharth1@gmail.com>
Date: Sun, 3 May 2026 14:10:20 -0700
Subject: [PATCH] fix player name type

---
 src/Types/Player.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Types/Player.hs b/src/Types/Player.hs
index 8ee5b3e..462568f 100644
--- a/src/Types/Player.hs
+++ b/src/Types/Player.hs
@@ -6,7 +6,7 @@ newtype PlayerName = MkPlayerName Text
     deriving (Eq, Show, Ord)
 
 data PlayerState = MkPlayerState
-    { name :: Text
+    { name :: PlayerName
     , score :: Int
     }
     deriving (Eq, Show)