/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:128:9-18: warning: [-Wunused-local-binds]
    Defined but not used: ‘nfreeslots’
    |
128 |     let nfreeslots = crNumFreeSlots cr
    |         ^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:130:5-6: warning: [-Wunused-matches]
    Defined but not used: ‘xs’
    |
130 |     xs <- w ^? hud . hudElement . diSelectionExtra
    |     ^^
/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:131:19: warning: [-Wunused-matches]
    Defined but not used: ‘x’
    |
131 |     OverInvDrag 3 x <- w ^? input . mouseContext
    |                   ^
/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:137:17: warning: [-Wunused-matches]
    Defined but not used: ‘i’
    |
137 |     OverInvDrag i mpos -> 
    |                 ^
/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:209:9: warning: [-Wunused-matches]
    Defined but not used: ‘j’
    |
209 |     (i, j) <- w ^? hud . hudElement . diSelection . _Just
    |         ^