mark inactive players in playerName

2020-01-11 01:27:01 -05:00
parent e38275aefe
commit 461fb5d942
2 changed files with 12 additions and 4 deletions
--- a/src/Mtlstats/Helpers/Player.hs
+++ b/src/Mtlstats/Helpers/Player.hs
@@ -49,8 +49,12 @@ playerDetails p = unlines $ top ++ [""] ++ table
 playerName :: Player -> String
 playerName p = let

+  prefix = if p^.pActive
+    then ""
+    else "*"
+
  suffix = if p^.pRookie
    then "*"
    else ""

-  in p^.pName ++ suffix
+  in prefix ++ p^.pName ++ suffix