/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:(45,25)-(323,30): warning: [-Wincomplete-patterns]
    Pattern match(es) are non-exhaustive
    In a case alternative:
        Patterns not matched:
            FlameSpitterMod
            FlameSpitterRepeatMod
   |
45 | heldEffect effecttype = case effecttype of
   |                         ^^^^^^^^^^^^^^^^^^...
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:503:1-10: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      walkNozzle :: Muzzle -> p1 -> p2 -> World -> World
    |
503 | walkNozzle mz itm cr w = w
    | ^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:503:15-17: warning: [-Wunused-matches]
    Defined but not used: ‘itm’
    |
503 | walkNozzle mz itm cr w = w
    |               ^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:503:19-20: warning: [-Wunused-matches]
    Defined but not used: ‘cr’
    |
503 | walkNozzle mz itm cr w = w
    |                   ^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:507:6-15: warning: [-Wunused-local-binds]
    Defined but not used: ‘walkamount’
    |
507 |     (walkamount, g) = randomR (- aspeed, aspeed) (_randGen w)
    |      ^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:509:5-8: warning: [-Wunused-local-binds]
    Defined but not used: ‘maxa’
    |
509 |     maxa = _nzMaxWalkAngle nz
    |     ^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:510:5-6: warning: [-Wunused-local-binds]
    Defined but not used: ‘wa’
    |
510 |     wa = min maxa $ max (negate maxa) (_nzCurrentWalkAngle nz + walkamount)
    |     ^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:552:1-17: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      removeAmmoFromMag :: Int -> Maybe Int -> Creature -> World -> World
    |
552 | removeAmmoFromMag x mid cr = fromMaybe id $ do
    | ^^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:565:5-7: warning: [-Wunused-local-binds]
    Defined but not used: ‘cid’
    |
565 |     cid = _crID cr
    |     ^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:(608,13)-(830,9): warning: [-Wincomplete-patterns]
    Pattern match(es) are non-exhaustive
    In a case alternative:
        Patterns not matched:
            FlameSpitterMod
            FlameSpitterRepeatMod
    |
608 | useMod hm = case hm of
    |             ^^^^^^^^^^...
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:(936,14)-(952,85): warning: [-Wincomplete-patterns]
    Pattern match(es) are non-exhaustive
    In a case alternative:
        Patterns not matched: HeldOverNozzlesUseGasParams
    |
936 | useHeld hu = case hu of
    |              ^^^^^^^^^^...
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:1045:1-10: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      doGenFloat :: RandomGen g => GenFloat -> g -> (Float, g)
     |
1045 | doGenFloat (ConstFloat x) g = (x,g)
     | ^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:1106:21-22: warning: [-Wunused-matches]
    Defined but not used: ‘mz’
     |
1106 | shootTeslaArc it cr mz w =
     |                     ^^