yesss

parsonsmatt · Jun 24, 2024 · 6dd326f · 6dd326f
1 parent 1283a7e
commit 6dd326f
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Control/Exception/Annotated.hs b/src/Control/Exception/Annotated.hs
@@ -78,7 +78,10 @@ data AnnotatedException exception
     { annotations :: [Annotation]
     , exception   :: exception
     }
-    deriving (Show, Functor, Foldable, Traversable)
+    deriving (Functor, Foldable, Traversable)
+
+instance (Exception exception) => Show (AnnotatedException exception) where
+    show = Safe.displayException
 
 instance Applicative AnnotatedException where
     pure =