Simplify item composition structure

2025-06-26 21:07:11 +01:00
parent 758c0aeec8
commit 377900662a
9 changed files with 195 additions and 208 deletions
@@ -33,13 +33,13 @@ useItemLoc cr loc pt w
    | HeldPlatformSF <- sf
      , fromMaybe False $ loc ^? locLDT . ldtValue . _1 . itLocation . ilIsRoot
      , Aiming {} <- cr ^. crStance . posture =
-        return $ heldEffect pt (bimap _iatType (^. _1) ldt) cr w
+        return $ heldEffect pt (bimap id (^. _1) ldt) cr w
    | GadgetPlatformSF <- sf =
        return $ gadgetEffect pt loc cr w
    | UnderBarrelPlatformSF <- sf
      , fromMaybe False $ loc ^? locLDT . ldtValue . _1 . itLocation . ilIsAttached
      , Aiming {} <- cr ^. crStance . posture =
-        return $ heldEffect pt (bimap _iatType (^. _1) ldt) cr w
+        return $ heldEffect pt (bimap id (^. _1) ldt) cr w
    | RemoteDetonatorSF <- sf
      , pt == InitialPress =
        return $ activateDetonator ldt w