Improve item location code

This commit is contained in:
2024-09-22 14:29:02 +01:00
parent 236f7c7750
commit 4f6431968c
25 changed files with 218 additions and 186 deletions
+20 -1
View File
@@ -1 +1,20 @@
All good (619 modules, at 13:53:46)
/home/justin/Haskell/loop/src/Dodge/Creature/State.hs:250:19-20: warning: [-Wunused-matches]
Defined but not used: cr
|
250 | itemInvSideEffect cr it
| ^^
/home/justin/Haskell/loop/src/Dodge/Creature/State.hs:250:22-23: warning: [-Wunused-matches]
Defined but not used: it
|
250 | itemInvSideEffect cr it
| ^^
/home/justin/Haskell/loop/src/Dodge/Creature/State.hs:257:1-17: warning: [-Wunused-top-binds]
Defined but not used: createAttachLight
|
257 | createAttachLight cr it = createTorchLightOffset cr it attachoff
| ^^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Inventory/Add.hs:70:1-12: warning: [-Wunused-top-binds]
Defined but not used: pickUpItemID
|
70 | pickUpItemID cid flid w = pickUpItem cid (w ^?! cWorld . lWorld . floorItems . ix flid) w
| ^^^^^^^^^^^^