Don't lose parentheses in show SomeAsyncException
authorNathan Collins <nathan.collins@gmail.com>
Tue, 21 May 2019 17:35:58 +0000 (13:35 -0400)
committerMarge Bot <ben+marge-bot@smart-cactus.org>
Wed, 29 May 2019 14:40:21 +0000 (10:40 -0400)
libraries/base/GHC/IO/Exception.hs

index 8c1262a..758a84b 100644 (file)
@@ -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