More hlinting

src/Dodge/Update/Input/InGame.hs

@@ -187,7 +187,7 @@ updateMouseReleaseInGame w = case w ^. input . mouseContext of
     _ -> w
   where
     getuniques x y = IS.union x y IS.\\ IS.intersection x y
-    f (x, y) z = Sel x y z
+    f (x, y) = Sel x y
     h (k, i) j = fold $ do
         sss <- w ^? hud . diSections . ix k . ssItems
         let (_, xss) = IM.split (min i j -1) sss
@@ -353,7 +353,7 @@ shiftInvItemsDown j is w = fromMaybe w $ do
     guard . isJust $ w ^? hud . diSections . ix j . ssItems . ix i
     return $ IS.foldr f w is
   where
-    f i' w' = swapItemWith g (j, i') w'
+    f i' = swapItemWith g (j, i')
     g i' m = fst <$> IM.lookupGT i' m
 
 updateFunctionKeys :: Universe -> Universe