Commit before attempting to remove ItemLinks, move LDT -> DT

2025-07-10 11:20:27 +01:00
parent 8a8623d30b
commit e013bd57f7
2 changed files with 18 additions and 29 deletions
@@ -36,6 +36,22 @@ tryAttachItems :: LDTree ItemLink CItem -> LDTree ItemLink CItem ->
    Maybe (LDTree ItemLink CItem)
 tryAttachItems = leftRightCombine leftIsParentCombine rightIsParentCombine

+--breakListAbove :: Item -> ItemStructuralFunction -> [(ItemStructuralFunction, ItemLink)]
+--breakListAbove itm itmf = case (itm ^. itType, itmf) of 
+--    (_, HeldPlatformSF) ->
+--         [(WeaponTargetingSF, WeaponTargetingLink), (WeaponScopeSF, WeaponScopeLink)]
+--            <> getAutoSpringLinks itm
+--            <> extraWeaponLinks itm
+--    (DETECTOR {}, _) -> 
+--        [(ARHUDSF,SFLink ARHUDSF),(TriggerSF, TriggerLink),(MapperSF,SFLink MapperSF)]
+--    (CRAFT TRANSFORMER, _) ->  [(LaserWeaponSF,SFLink LaserWeaponSF)]
+--    (MAPPER, _) -> [(ARHUDSF,SFLink ARHUDSF)]
+--    (_, GadgetPlatformSF) ->
+--        [(TriggerSF, TriggerLink), (WeaponTargetingSF, WeaponTargetingLink), (WeaponScopeSF, WeaponScopeLink)]
+--    (_, RemoteScreenSF) ->
+--        [(JoystickSF, JoystickLink)]
+--    _ -> []
+
 itemToBreakLists ::
    Item ->
    ItemStructuralFunction ->