Hlint pass

src/Dodge/Update/Input/InGame.hs

@@ -218,8 +218,8 @@ updateMouseClickInGame cfig w = case w ^. input . mouseContext of
             && isGroupSelectableSection (fst x) ->
             w & input . mouseContext .~ OverInvDragSelect x (Just $ snd x)
     OverInvSelect x -> startDrag x cfig w
-    OverTerminal tmid (TerminalTextInput {}) -> terminalReturnEffect tmid w
-    OverTerminal tmid (TerminalPressTo{}) -> continueTerminal tmid w
+    OverTerminal tmid TerminalTextInput{} -> terminalReturnEffect tmid w
+    OverTerminal tmid TerminalPressTo{} -> continueTerminal tmid w
     OutsideTerminal -> w & hud . hudElement . subInventory .~ NoSubInventory
     OverCombSelect x ->
         w & hud . hudElement . subInventory . ciSelection ?~ f x
@@ -392,7 +392,7 @@ updateKeysInTerminal tmid u = fromMaybe u $ do
 
 updateKeyContinueTerminal :: Int -> Universe -> Universe
 updateKeyContinueTerminal tmid u
-    | any (==0) $ u ^. uvWorld . input . pressedKeys =
+    | elem 0 $ u ^. uvWorld . input . pressedKeys =
         u & uvWorld %~ continueTerminal tmid
     | otherwise = u
 

src/Dodge/Update/Scroll.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE TupleSections #-}
+--{-# LANGUAGE TupleSections #-}
 module Dodge.Update.Scroll (
     updateWheelEvent,
 ) where