Correctly display held root item

2024-11-26 17:05:13 +00:00
parent 7d0f44a041
commit e1f5049e0f
9 changed files with 16 additions and 67 deletions
@@ -168,6 +168,7 @@ joinItemsInList f xs = snd $ h (xs, [])
        Nothing -> h (ys, y : z : zs)
        Just w -> h (w : ys, zs)

+-- this puts the first elements in the intmap at the end of the list
 invLDT :: IM.IntMap Item -> [LabelDoubleTree ItemLink PartiallyComposedItem]
 invLDT =
    joinItemsInList (leftRightCombine leftIsParentCombine rightIsParentCombine) . IM.elems