Cleanup

2024-12-18 15:50:22 +00:00
parent 694bc2b060
commit 86d884ba01
12 changed files with 11 additions and 52 deletions
@@ -189,7 +189,7 @@ invItemLocUpdate loc w = case itm ^. itType of
 tryUseParent :: LocationLDT ItemLink ComposedItem -> World -> World
 tryUseParent loc w = fromMaybe w $ do
    t <- locUp loc
-    let t' = bimap (_iatType) (^. _1) $ t ^. locLDT
+    let t' = bimap (^. iatType) (^. _1) $ t ^. locLDT
    cr <- w ^? cWorld . lWorld . creatures . ix 0
    return $ heldEffectNoHammerCheck t' cr w