/home/justin/Haskell/loop/src/Dodge/Render/Picture.hs:100:1-19: warning: [-Wunused-top-binds] Defined but not used: ‘determineTermCursor’ | 100 | determineTermCursor tmid u = fromMaybe (drawPlus 5) $ do | ^^^^^^^^^^^^^^^^^^^ /home/justin/Haskell/loop/src/Dodge/Render/Picture.hs:100:21-24: warning: [-Wunused-matches] Defined but not used: ‘tmid’ | 100 | determineTermCursor tmid u = fromMaybe (drawPlus 5) $ do | ^^^^ /home/justin/Haskell/loop/src/Dodge/Render/Picture.hs:100:26: warning: [-Wunused-matches] Defined but not used: ‘u’ | 100 | determineTermCursor tmid u = fromMaybe (drawPlus 5) $ do | ^ /home/justin/Haskell/loop/src/Dodge/Render/Picture.hs:113:1-18: warning: [-Wunused-top-binds] Defined but not used: ‘drawWireRectCursor’ | 113 | drawWireRectCursor = scale 0.1 0.1 $ text [cWireRect] | ^^^^^^^^^^^^^^^^^^ /home/justin/Haskell/loop/src/Dodge/Update.hs:306:1-27: warning: [-Wunused-top-binds] Defined but not used: ‘updateMouseInventoryEffects’ | 306 | updateMouseInventoryEffects cfig w = w | ^^^^^^^^^^^^^^^^^^^^^^^^^^^ /home/justin/Haskell/loop/src/Dodge/Update.hs:306:29-32: warning: [-Wunused-matches] Defined but not used: ‘cfig’ | 306 | updateMouseInventoryEffects cfig w = w | ^^^^ /home/justin/Haskell/loop/src/Dodge/Update.hs:419:9-12: warning: [-Wunused-matches] Defined but not used: ‘tmid’ | 419 | tmid <- w ^? hud . hudElement . subInventory . termID | ^^^^ /home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:(121,24)-(128,71): warning: [GHC-62161] [-Wincomplete-patterns] Pattern match(es) are non-exhaustive In a case alternative: Patterns of type ‘MouseContext’ not matched: NoMouseContext MouseAiming OverInvSelect _ OverInvFilt _ ... | 121 | trydocombination = case w ^. input . mouseContext of | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^... /home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:126:26: warning: [-Wunused-matches] Defined but not used: ‘i’ | 126 | OverCombCombine (i,j) -> (worldEventFlags . at InventoryChange ?~ ()) . maybeExitCombine $ | ^ /home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:126:28: warning: [-Wunused-matches] Defined but not used: ‘j’ | 126 | OverCombCombine (i,j) -> (worldEventFlags . at InventoryChange ?~ ()) . maybeExitCombine $ | ^