/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:124:1-15: warning: [-Wunused-top-binds]
    Defined but not used: ‘tryDropSelected’
    |
124 | tryDropSelected w = do
    | ^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:131:1-17: warning: [-Wunused-top-binds]
    Defined but not used: ‘tryPickupSelected’
    |
131 | tryPickupSelected w = do
    | ^^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:135:19: warning: [-Wunused-matches]
    Defined but not used: ‘x’
    |
135 |     OverInvDrag 3 x <- w ^? input . mouseContext
    |                   ^
/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
    |         ^
/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:227:1-12: warning: [-Wunused-top-binds]
    Defined but not used: ‘dragInvItems’
    |
227 | dragInvItems j is cfig mpos ldp sss w
    | ^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:297:1-13: warning: [-Wunused-top-binds]
    Defined but not used: ‘shiftInvItems’
    |
297 | shiftInvItems j xs cfig mpos ldp sss w = case inverseSelBoundaryUp cfig ldp sss mpos of
    | ^^^^^^^^^^^^^