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)