diff --git a/libraries/base/GHC/IO/Exception.hs b/libraries/base/GHC/IO/Exception.hs
index 8c1262a0fa32590974c6a8689f037320d52d0e39..758a84bf32cdf9876c06ab7591602903b0af414e 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