Cleanup

2025-07-08 23:47:13 +01:00
parent 57be90fea2
commit 15db129633
2 changed files with 11 additions and 14 deletions
@@ -220,11 +220,8 @@ copierItemUpdate itm cr w = fromMaybe w $ do
    return $ w & pointerToItem itm . itUse . uValue .~ v

 doAnyEquipmentEffect :: LocationLDT ItemLink OItem -> Creature -> World -> World
-doAnyEquipmentEffect loc cr = case itm ^? itLocation . ilEquipSite . _Just of
-    Just _ -> equipBackgroundEffect loc cr
-    _ -> id
-  where
-    itm = loc ^. locLDT . ldtValue . _1
+doAnyEquipmentEffect loc cr = maybe id (equipBackgroundEffect loc cr) 
+    $ loc ^? locLDT . ldtValue . _1 . itLocation . ilEquipSite . _Just

 tryUseParent :: LocationLDT ItemLink OItem -> World -> World
 tryUseParent loc w = fromMaybe w $ do