diff options
author | Nathan Collins <nathan.collins@gmail.com> | 2019-05-21 13:35:58 -0400 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-05-29 10:40:21 -0400 |
commit | 9062b62555ced7403cb97f5fd55cffdd57fbf717 (patch) | |
tree | 2786d002bf30a8c93ae5de485ce864dc8cb3a697 | |
parent | 69b1633104a43d5654e65f2c05fa6b73775936e2 (diff) | |
download | haskell-9062b62555ced7403cb97f5fd55cffdd57fbf717.tar.gz |
Don't lose parentheses in show SomeAsyncException
-rw-r--r-- | libraries/base/GHC/IO/Exception.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |