100 lines
4.2 KiB
Plaintext
100 lines
4.2 KiB
Plaintext
/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
|
||
| ^^^^
|