Commit before only putting item locations in single itemLocations intmap

2024-09-24 09:31:20 +01:00
parent 77e5f684aa
commit a6eb5cf982
8 changed files with 242 additions and 216 deletions
@@ -108,7 +108,7 @@ invAdj' im = do
  where
    g = dtToLRAdjEither getid . ldtToDT
    getid (itm, _,_,_) = maybe
-        (Left ("invAdj' item " ++ show ( _itID itm) ++ " location:" ++ show (itm ^? itLocation . ilInvID)) )
+        (Left ("invAdj' item " ++ show ( _itID itm) ++ " location: " ++ show (itm ^? itLocation)) )
        Right $ itm ^? itLocation . ilInvID

 invIndentIM :: IM.IntMap Item -> IM.IntMap (Item,Int, LabelDoubleTreeNodeType ComposeLinkType )