/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:(32,25)-(316,68): warning: [-Wincomplete-patterns]
    Pattern match(es) are non-exhaustive
    In a case alternative:
        Patterns not matched:
            FireRemoteShellMod
            ExplodeRemoteShellMod
            DoNothingMod
            ForceFieldMod
            ...
   |
32 | heldEffect effecttype = case effecttype of
   |                         ^^^^^^^^^^^^^^^^^^...
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:325:5-18: warning: [-Wunused-local-binds]
    Defined but not used: ‘directedTelPos’
    |
325 |     directedTelPos _ cr w = (p, a)
    |     ^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:335:1-9: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      gasEffect :: [(LabelDoubleTree ComposeLinkType Item
                     -> Creature -> World -> World)
                    -> LabelDoubleTree ComposeLinkType Item
                    -> Creature
                    -> World
                    -> World]
                   -> LabelDoubleTree ComposeLinkType Item
                   -> Creature
                   -> World
                   -> World
    |
335 | gasEffect = foldl' (&) (overNozzles useGasParams)
    | ^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:337:1-15: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      bulletGunEffect :: [(LabelDoubleTree ComposeLinkType Item
                           -> Creature -> World -> World)
                          -> LabelDoubleTree ComposeLinkType Item
                          -> Creature
                          -> World
                          -> World]
                         -> LabelDoubleTree ComposeLinkType Item
                         -> Creature
                         -> World
                         -> World
    |
337 | bulletGunEffect = foldl' (&) shootBullet
    | ^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:(342,13)-(644,9): warning: [-Wincomplete-patterns]
    Pattern match(es) are non-exhaustive
    In a case alternative:
        Patterns not matched:
            TractorMod
            FireRemoteShellMod
            ExplodeRemoteShellMod
            DoNothingMod
            ...
    |
342 | useMod hm = case hm of
    |             ^^^^^^^^^^...
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:649:5-26: warning: [-Wunused-local-binds]
    Defined but not used: ‘increasecycleLasCircle’
    |
649 |     increasecycleLasCircle it = it & itParams . lasCycle %~ (flip mod 2000 . (+ 1))
    |     ^^^^^^^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:651:5-14: warning: [-Wunused-local-binds]
    Defined but not used: ‘fLasCircle’
    |
651 |     fLasCircle it = [it & itParams . lasCycle +~ x | x <- [0, 50 .. 1999]]
    |     ^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:656:5-18: warning: [-Wunused-local-binds]
    Defined but not used: ‘directedTelPos’
    |
656 |     directedTelPos _ cr w = (p, a)
    |     ^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:703:16-18: warning: [-Wunused-matches]
    Defined but not used: ‘itm’
    |
703 | usePjCreationX itm cr = undefined
    |                ^^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:703:20-21: warning: [-Wunused-matches]
    Defined but not used: ‘cr’
    |
703 | usePjCreationX itm cr = undefined
    |                    ^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:778:17-18: warning: [-Wunused-matches]
    Defined but not used: ‘it’
    |
778 | fireRemoteShell it cr w = undefined
    |                 ^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:778:20-21: warning: [-Wunused-matches]
    Defined but not used: ‘cr’
    |
778 | fireRemoteShell it cr w = undefined
    |                    ^^
/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:778:23: warning: [-Wunused-matches]
    Defined but not used: ‘w’
    |
778 | fireRemoteShell it cr w = undefined
    |                       ^