Improve Show for EmbedBoxedObj to show box as well

Haskell-Things · Nov 7, 2023 · 7c647c6 · 7c647c6
1 parent 082ee83
commit 7c647c6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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
 
 ------------------------------------------------------------------------------