/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:247:22-23: warning: [-Wunused-matches]
    Defined but not used: ‘bn’
    |
247 | shiftInvItems k x ab bn xs ss w = fromMaybe w $ do
    |                      ^^
/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:252:13-17: warning: [-Wunused-matches]
    Defined but not used: ‘above’
    |
252 |             above <- ss ^? ix (mini - 1)
    |             ^^^^^