/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:25:9: warning: [-Wname-shadowing]
    This binding for ‘x’ shadows the existing binding
      bound at /home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:23:12
   |
25 |     noa x y = (x, ILink y orientAttachment)
   |         ^
/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:25:11: warning: [-Wname-shadowing]
    This binding for ‘y’ shadows the existing binding
      bound at /home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:23:14
   |
25 |     noa x y = (x, ILink y orientAttachment)
   |           ^
/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:93:5-7: warning: [-Wunused-local-binds]
    Defined but not used: ‘noa’
   |
93 |     noa x y = (x, ILink y orientAttachment)
   |     ^^^
/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:94:5-11: warning: [-Wunused-local-binds]
    Defined but not used: ‘nolinks’
   |
94 |     nolinks x = (itm, x, LTest (const Nothing) (const Nothing))
   |     ^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:95:5-11: warning: [-Wunused-local-binds]
    Defined but not used: ‘isolate’
   |
95 |     isolate = (itm, UncomposableIsolateSF, LTest (const Nothing) (const Nothing))
   |     ^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:98:1-17: warning: [-Wunused-top-binds]
    Defined but not used: ‘ammoComposedItem'’
   |
98 | ammoComposedItem' itm = fromMaybe (error "in ammoComposedItem, wrong item") $ do
   | ^^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/HeldOffset.hs:26:1: warning: [-Wunused-top-binds]
    Defined but not used: ‘heldItemRelativeOrient’
   |
26 | heldItemRelativeOrient itm cr (p,q)
   | ^^^^^^^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/HeldOffset.hs:44:5: warning: [-Wunused-local-binds]
    Defined but not used: ‘handD’
   |
44 |     handD = 15
   |     ^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/HeldOffset.hs:44:13: warning: [-Wtype-defaults]
    • Defaulting the following constraint to type ‘Integer’
        Num p0 arising from the literal ‘15’
    • In the expression: 15
      In an equation for ‘handD’: handD = 15
      In an equation for ‘heldItemRelativeOrient’:
          heldItemRelativeOrient itm cr (p, q)
            | _posture (_crStance cr) == Aiming = (p, q)
            | isTwoHandFlat = (p, q)
            | isOneHand = (p, q)
            | otherwise = (p, q)
            where
                handD = 15
                handPos
                  = case cr ^? crStance . carriage of
                      Just (Walking x LeftForward) -> f x * 50
                      _ -> 0
                isOneHand
                  = itm ^? itUseAimStance == Just OneHand
                      || isNothing (itm ^? itUseAimStance)
                isTwoHandFlat = itm ^? itUseAimStance == Just TwoHandFlat
                ....
   |
44 |     handD = 15
   |             ^^
/home/justin/Haskell/loop/src/Dodge/Item/HeldOffset.hs:45:5: warning: [-Wunused-local-binds]
    Defined but not used: ‘handPos’
   |
45 |     handPos = case cr ^? crStance . carriage of
   |     ^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/HeldOffset.hs:46:45: warning: [-Wtype-defaults]
    • Defaulting the following constraints to type ‘Double’
        (Num a0)
          arising from a use of ‘*’
          at /home/justin/Haskell/loop/src/Dodge/Item/HeldOffset.hs:46:45
        (Fractional a0)
          arising from a use of ‘f’
          at /home/justin/Haskell/loop/src/Dodge/Item/HeldOffset.hs:46:41-43
    • In the expression: f x * 50
      In a case alternative: Just (Walking x LeftForward) -> f x * 50
      In the expression:
        case cr ^? crStance . carriage of
          Just (Walking x LeftForward) -> f x * 50
          _ -> 0
   |
46 |         Just (Walking x LeftForward) -> f x * 50
   |                                             ^
/home/justin/Haskell/loop/src/Dodge/Item/HeldOffset.hs:53:5: warning: [-Wunused-local-binds]
    Defined but not used: ‘f’
   |
53 |     f i = 0.1 * fromIntegral (sLen - i) / fromIntegral sLen
   |     ^
/home/justin/Haskell/loop/src/Dodge/Item/HeldOffset.hs:54:5: warning: [-Wunused-local-binds]
    Defined but not used: ‘sLen’
   |
54 |     sLen = _strideLength $ _crStance cr
   |     ^^^^