/home/justin/Haskell/loop/src/Dodge/Item/HeldOffset.hs:26:1-22: 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-9: warning: [-Wunused-local-binds]
    Defined but not used: ‘handD’
   |
44 |     handD = 15
   |     ^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/HeldOffset.hs:44:13-14: 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-11: 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-8: warning: [-Wunused-local-binds]
    Defined but not used: ‘sLen’
   |
54 |     sLen = _strideLength $ _crStance cr
   |     ^^^^