Migrate LDTs to DTs

2025-07-10 22:13:47 +01:00
parent 9543c2c789
commit cd46f34787
9 changed files with 169 additions and 95 deletions
@@ -1,5 +1,6 @@
 {-# LANGUAGE TupleSections #-}
 module Dodge.Item.Grammar (
+    invDT,
    invLDT,
    invLDT',
    invAdj,
@@ -239,6 +240,11 @@ invLDT =
    joinItemsInList tryAttachItems . IM.elems
        . fmap (singleLDT . baseCI)

+invDT :: IM.IntMap Item -> [DTree CItem]
+invDT = fmap ldtToDT .
+    joinItemsInList tryAttachItems . IM.elems
+        . fmap (singleLDT . baseCI)
+
 invLDT' :: IM.IntMap Item -> [LDTree ItemLink OItem]
 invLDT' = fmap propagateOrientation . invLDT