Tweak displayAnnotatedException

restyled-io · Jul 24, 2024 · 5186862 · 5186862
1 parent 40b63de
commit 5186862
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/src/Restyler/AnnotatedException.hs b/src/Restyler/AnnotatedException.hs
@@ -26,9 +26,7 @@ import Control.Exception.Annotated.UnliftIO
 displayAnnotatedException :: Exception e => AnnotatedException e -> Text
 displayAnnotatedException aex@AnnotatedException {exception} =
   unlines
-    [ "Annotated Exception"
-    , ""
-    , pack $ displayException exception
+    [ pack $ displayException exception
     , ""
     , maybe "" (pack . prettyCallStack) $ annotatedExceptionCallStack aex
     ]