mirror of
https://github.com/gentoo-mirror/gentoo.git
synced 2026-08-24 18:58:08 -07:00
ffcdd1cfe1
Signed-off-by: hololeap <hololeap@protonmail.com> Signed-off-by: Mark Wright <gienah@gentoo.org>
25 lines
779 B
Diff
25 lines
779 B
Diff
From 6b5f632881b3e0a9ee39a692aaad56af185ce6fc Mon Sep 17 00:00:00 2001
|
|
From: hololeap <hololeap@protonmail.com>
|
|
Date: Tue, 20 Jan 2026 18:11:51 -0700
|
|
Subject: [PATCH 1/1] Add missing Semigroup instance to ttrender
|
|
|
|
Signed-off-by: hololeap <hololeap@protonmail.com>
|
|
--- a/ttrender/Debug/Trace/Tree/Render/Edged.hs
|
|
+++ b/ttrender/Debug/Trace/Tree/Render/Edged.hs
|
|
@@ -105,9 +105,11 @@ renderCoords Coords{..} =
|
|
|
|
newtype Arrows = Arrows { addArrows :: Diagram B -> Diagram B }
|
|
|
|
+instance Semigroup Arrows where
|
|
+ Arrows f <> Arrows g = Arrows (f . g)
|
|
+
|
|
instance Monoid Arrows where
|
|
mempty = Arrows id
|
|
- Arrows f `mappend` Arrows g = Arrows (f . g)
|
|
|
|
-- based on 'connectOutside'
|
|
connectLabelled :: ArrowOpts Double -> Diagram B -> Bool -> Int -> Int -> Arrows
|
|
--
|
|
2.52.0
|
|
|