Work on cleaning up item effects/attachments etc

2022-07-27 16:39:58 +01:00
parent 8d17ce66e9
commit b52adddd5d
39 changed files with 696 additions and 844 deletions
@@ -213,7 +213,7 @@ itemUpdate cr i
    | otherwise     = baseupdate False
  where
    baseupdate bool = updateAutoRecharge . (itUse %~ useUpdate) 
-        . (itPos    .~ InInv (_crID cr) i) 
+        . (itLocation    .~ InInv (_crID cr) i) 
        . (itIsHeld .~ bool)
 updateAutoRecharge :: Item -> Item
 updateAutoRecharge it = case it ^? itUse . leftConsumption of