/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:(493,66)-(498,55): warning: [-Wincomplete-patterns]
    Pattern match(es) are non-exhaustive
    In a case alternative:
        Patterns not matched:
            MuzzleFlame
            MuzzleGas
    |
493 |         removeAmmoFromMag x mid cr . makeMuzzleFlare mz itm cr $ case _mzEffect mz of
    |                                                                  ^^^^^^^^^^^^^^^^^^^^...
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:539:1-17: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      removeAmmoFromMag :: Int -> Maybe Int -> Creature -> World -> World
    |
539 | removeAmmoFromMag x mid cr = fromMaybe id $ do
    | ^^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:552:5-7: warning: [-Wunused-local-binds]
    Defined but not used: ‘cid’
    |
552 |     cid = _crID cr
    |     ^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:(595,13)-(817,9): warning: [-Wincomplete-patterns]
    Pattern match(es) are non-exhaustive
    In a case alternative: Patterns not matched: TractorMod
    |
595 | useMod hm = case hm of
    |             ^^^^^^^^^^...
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:1083:21-22: warning: [-Wunused-matches]
    Defined but not used: ‘mz’
     |
1083 | shootTeslaArc it cr mz w =
     |                     ^^