justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Attempt to simplify attachment process

Browse Source
This commit is contained in:
justin
2024-10-01 15:34:53 +01:00
parent cb461963f0
commit fa4e117f93
4 changed files with 114 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ghcidOutput
+37 -5
View File
@@ -1,14 +1,46 @@
/home/justin/Haskell/loop/src/Dodge/Item/HeldOffset.hs:26:1-22: warning: [-Wunused-top-binds]
/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-9: warning: [-Wunused-local-binds]
/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-14: warning: [-Wtype-defaults]
/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
@@ -33,7 +65,7 @@
|
44 | handD = 15
| ^^
/home/justin/Haskell/loop/src/Dodge/Item/HeldOffset.hs:45:5-11: warning: [-Wunused-local-binds]
/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
@@ -60,7 +92,7 @@
|
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]
/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