Correctly update root status of item in _ilIsRoot

2024-11-05 18:25:30 +00:00
parent 38ab6a35da
commit 9b3518e4eb
16 changed files with 40 additions and 25 deletions
@@ -206,7 +206,7 @@ invTrees' = IM.unions . map (ldtToIM getindex . fmap (^. _1)) . map (fmap (\(x,
        fromMaybe (error "in invTrees try to get non-inventory item tree") $
            i ^? itLocation . ilInvID

-- returns an intmap with trees for root items, indexed by inventory position
+-- returns an intmap with trees for (only!) root items, indexed by inventory position
 invRootTrees :: IM.IntMap Item -> IM.IntMap (LabelDoubleTree ItemLink ComposedItem)
 invRootTrees = IM.fromDistinctAscList . reverse . map (getid . fmap (\(x, y, _) -> CItem x y)) . invLDT
  where