implemented playerSummary

This commit is contained in:
Jonathan Lamothe committed 2019-10-02 01:31:07 -04:00
1 parent 2be7d2bf1d
commit 4f70c84c6b
2 files changed
+8 -1

No files matched your search

+2 -1
View File
@@ -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