Rename ItemAttachments

2022-06-15 08:21:53 +01:00
parent 485c42eb24
commit bf1bfa5453
15 changed files with 98 additions and 80 deletions
@@ -39,7 +39,7 @@ magShield :: Item
 magShield = defaultEquipment
    { _itEquipPict = \_ _ -> (,) emptySH blank
    , _itID = Nothing
-    , _itAttachment = ItMInt Nothing
+    , _itAttachment = AttachMInt Nothing
    }
    & itUse . eqEq . eqUse .~ useMagShield 
    & itUse . eqEq . eqSite .~ GoesOnWrist
@@ -53,7 +53,7 @@ useMagShield it cr w = w & magnets . at mgid ?~ themagnet
        ,_mgPos = _crPos cr
        ,_mgField = curveAroundField 50 200
        }
-    mgid = case it ^? itAttachment . itMInt . _Just of
+    mgid = case it ^? itAttachment . atMInt . _Just of
        Just mgid' -> mgid'
        Nothing -> IM.newKey $ _magnets w
 --    it = _crInv cr IM.! invid