insert players at end of list (preserve index numbers)

2019-09-28 01:46:28 -04:00
parent 767c9b9221
commit ac92182b20
3 changed files with 8 additions and 7 deletions
--- a/src/Mtlstats/Actions.hs
+++ b/src/Mtlstats/Actions.hs
@@ -149,7 +149,7 @@ addPlayer s = fromMaybe s $ do
    pos    = cps^.cpsPosition
    player = newPlayer num name pos
  Just $ s & database.dbPlayers
-    %~ (player:)
+    %~ (++[player])

 -- | Awards the goal and assists to the players
 recordGoalAssists :: ProgState -> ProgState