From 9062b62555ced7403cb97f5fd55cffdd57fbf717 Mon Sep 17 00:00:00 2001
From: Nathan Collins <nathan.collins@gmail.com>
Date: Tue, 21 May 2019 13:35:58 -0400
Subject: [PATCH] Don't lose parentheses in show SomeAsyncException

---
 libraries/base/GHC/IO/Exception.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libraries/base/GHC/IO/Exception.hs b/libraries/base/GHC/IO/Exception.hs
index 8c1262a0fa..758a84bf32 100644
--- a/libraries/base/GHC/IO/Exception.hs
+++ b/libraries/base/GHC/IO/Exception.hs
@@ -178,7 +178,7 @@ data SomeAsyncException = forall e . Exception e => SomeAsyncException e
 
 -- | @since 4.7.0.0
 instance Show SomeAsyncException where
-    show (SomeAsyncException e) = show e
+    showsPrec p (SomeAsyncException e) = showsPrec p e
 
 -- | @since 4.7.0.0
 instance Exception SomeAsyncException
-- 
GitLab