Cleanup LabelDoubleTree -> LDTree

2025-06-27 08:55:00 +01:00
parent 73c708a325
commit dd5a747559
11 changed files with 101 additions and 218 deletions
@@ -80,7 +80,7 @@ structureUseAtLoc = \case
    MapperSF -> True
    _ -> False

-activateDetonator :: LabelDoubleTree ItemLink CItem -> World -> World
+activateDetonator :: LDTree ItemLink CItem -> World -> World
 activateDetonator det = fromMaybe id $ do
    pjid <- det ^? ldtValue . _1 . itUse . uaParams . apProjectiles . ix 0
    return $ cWorld . lWorld . projectiles . ix pjid . pjTimer .~ 0