From 7c647c6d1837d5ad3573aa178c758741ec41c882 Mon Sep 17 00:00:00 2001 From: Richard Marko Date: Tue, 7 Nov 2023 18:20:43 +0100 Subject: [PATCH] Improve Show for EmbedBoxedObj to show box as well --- Graphics/Implicit/Definitions.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Graphics/Implicit/Definitions.hs b/Graphics/Implicit/Definitions.hs index 63f52c55..a1096e37 100644 --- a/Graphics/Implicit/Definitions.hs +++ b/Graphics/Implicit/Definitions.hs @@ -262,7 +262,7 @@ instance (Show obj, Show (f a)) => Show (SharedObj obj f a) where Mirror vec obj -> showCon "mirror" @| vec @| obj Outset r obj -> showCon "outset" @| r @| obj Shell r obj -> showCon "shell" @| r @| obj - EmbedBoxedObj _ -> showCon "implicit" @| Blackhole + EmbedBoxedObj (_, box) -> showCon "implicit" @| Blackhole @| box WithRounding r obj -> showCon "withRounding" @| r @| obj ------------------------------------------------------------------------------