68 lines
2.8 KiB
Plaintext
68 lines
2.8 KiB
Plaintext
/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
|
||
| ^^^^
|