diff --git a/src/Mtlstats/Types.hs b/src/Mtlstats/Types.hs
index c3fd07e..d438946 100644
--- a/src/Mtlstats/Types.hs
+++ b/src/Mtlstats/Types.hs
@@ -717,4 +717,5 @@ modifyPlayer f n = map
 
 -- | Provides a short summary string for a player
 playerSummary :: Player -> String
-playerSummary = undefined
+playerSummary p =
+  p^.pName ++ " (" ++ show (p^.pNumber) ++ ") " ++ p^.pPosition
diff --git a/test/TypesSpec.hs b/test/TypesSpec.hs
index 13999c5..ad3b03d 100644
--- a/test/TypesSpec.hs
+++ b/test/TypesSpec.hs
@@ -58,6 +58,7 @@ spec = describe "Mtlstats.Types" $ do
   playerSearchSpec
   playerSearchExactSpec
   modifyPlayerSpec
+  playerSummarySpec
   Menu.spec
 
 playerSpec :: Spec
@@ -578,6 +579,11 @@ modifyPlayerSpec = describe "modifyPlayer" $ mapM_
   , ( "Sam",       0,           0,           0             )
   ]
 
+playerSummarySpec :: Spec
+playerSummarySpec = describe "playerSummary" $
+  it "should be \"Joe (2) center\"" $
+    playerSummary joe `shouldBe` "Joe (2) center"
+
 joe :: Player
 joe = newPlayer 2 "Joe" "center"