Fix bug in attached item position orienting

2024-10-02 22:57:10 +01:00
parent 6bcd5bc591
commit 49ffbfafc2
8 changed files with 105 additions and 97 deletions
@@ -25,10 +25,9 @@ itemTreeSPic (LDT (itm, _) l r) =
        <> foldMap (itemRotTreeSPic itm) (l <> r)

 itemRotTreeSPic :: Item -> (ItemLink, LabelDoubleTree ItemLink ComposedItem) -> SPic
-itemRotTreeSPic par (il, t) = fromMaybe mempty $ do
-    (p, q) <- _iatOrient il par (_iatType il) itm
-    return . translateSP p . overPosSP (Q.rotate q) $ itemTreeSPic t
+itemRotTreeSPic par (il, t) = translateSP p . overPosSP (Q.rotate q) $ itemTreeSPic t
  where
+    (p, q) = _iatOrient il par (_iatType il) itm
    itm = t ^. ldtValue . _1

 itemSPic :: Item -> SPic