reference goals and assists by index number, not names

src/Mtlstats/Actions.hs

@@ -154,18 +154,14 @@ addPlayer s = fromMaybe s $ do
 -- | Awards the goal and assists to the players
 recordGoalAssists :: ProgState -> ProgState
 recordGoalAssists ps = fromMaybe ps $ do
-  let
-    gs      = ps^.progMode.gameStateL
-    players = ps^.database.dbPlayers
-  (goalId, _) <- playerSearchExact (gs^.goalBy) players
-  assistIds   <- mapM
-    (\name -> fst <$> playerSearchExact name players)
-    (gs^.assistsBy)
+  let gs = ps^.progMode.gameStateL
+  goalId <- gs^.goalBy
+  let assistIds = gs^.assistsBy
   Just $ ps
     & awardGoal goalId
     & (\s -> foldr awardAssist s assistIds)
     & progMode.gameStateL
-      %~ (goalBy          .~ "")
+      %~ (goalBy          .~ Nothing)
       .  (assistsBy       .~ [])
       .  (pointsAccounted %~ succ)