implemented playerSummary

2019-10-02 01:31:07 -04:00
parent 2be7d2bf1d
commit 4f70c84c6b
2 changed files with 8 additions and 1 deletions
@@ -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