hlint suggestions

2020-03-05 05:15:58 -05:00
parent 53c49492cb
commit 9ee33cbd03
6 changed files with 21 additions and 22 deletions
--- a/src/Mtlstats/Menu.hs
+++ b/src/Mtlstats/Menu.hs
@@ -170,10 +170,11 @@ gameGoalieMenu s = let
      goalie <- nth n $ s^.database.dbGoalies
      Just (n, goalie))
    gids
-  in Menu title () $ map
-    (\(ch, (gid, goalie)) -> MenuItem ch (goalieSummary goalie) $
-      modify $ GI.setGameGoalie gid) $
-    zip ['1'..] goalies
+  in Menu title () $ zipWith
+    (\ch (gid, goalie) -> MenuItem ch (goalieSummary goalie) $
+      modify $ GI.setGameGoalie gid)
+    ['1'..]
+    goalies

 -- | The edit menu
 editMenu :: Menu ()