award shutouts

2019-11-28 02:30:12 -05:00
parent eedeaed8fc
commit 4941e0e64f
3 changed files with 65 additions and 3 deletions
@@ -106,9 +106,10 @@ verifyDataC = Controller
    return C.CursorInvisible
  , handleController = \e -> do
    case ynHandler e of
-      Just True  -> do
-        modify $ progMode.gameStateL.dataVerified .~ True
-        modify updateGameStats
+      Just True  -> modify
+        $ (progMode.gameStateL.dataVerified .~ True)
+        . updateGameStats
+        . awardShutouts
      Just False -> modify $ progMode.gameStateL .~ newGameState
      Nothing    -> return ()
    return True