Simplify item composition structure

2025-06-26 21:07:11 +01:00
parent 758c0aeec8
commit 377900662a
9 changed files with 195 additions and 208 deletions
@@ -29,7 +29,7 @@ itemTreeSPic (LDT (itm,_,_) l r) =
 itemRotTreeSPic :: Item -> (ItemLink, LabelDoubleTree ItemLink CItem) -> SPic
 itemRotTreeSPic par (il, t) = translateSP p . overPosSP (Q.rotate q) $ itemTreeSPic t
  where
-    (p, q) = orientAttachment par (_iatType il) itm
+    (p, q) = orientAttachment par il itm
    itm = t ^. ldtValue . _1

 itemSPic :: Item -> SPic