Tweak use location

2025-06-30 01:02:27 +01:00
parent d88aed10c7
commit 8a00450e3f
9 changed files with 226 additions and 210 deletions
@@ -45,8 +45,7 @@ doWdWd we = case we of
    UseInvItem invid pt -> \w -> fromMaybe w (useItem invid pt w)
    WdWdBurstFireRepetition cid invid -> \w -> fromMaybe w $ do
        cr <- w ^? cWorld . lWorld . creatures . ix cid
-        itree <- bimap id id <$> 
-            allInvLocs (cr ^. crInv) ^? ix invid . _2 . locLDT
+        itree <- allInvLocs (cr ^. crInv) ^? ix invid . _2 . locLDT
        return $ heldEffectMuzzles itree cr w

 accessTerminal :: Maybe Int -> World -> World