From fdea7ada1c0a779ed984540c8df6d9b667642d1d Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Fri, 23 Feb 2024 22:58:22 -0500
Subject: [PATCH] ghc-internal: comment formatting
---
libraries/ghc-internal/src/GHC/Internal/IO/Exception.hs | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/libraries/ghc-internal/src/GHC/Internal/IO/Exception.hs b/libraries/ghc-internal/src/GHC/Internal/IO/Exception.hs
index 0a2eaed53870..908952d5b555 100644
--- a/libraries/ghc-internal/src/GHC/Internal/IO/Exception.hs
+++ b/libraries/ghc-internal/src/GHC/Internal/IO/Exception.hs
@@ -189,18 +189,17 @@ instance Show SomeAsyncException where
-- | @since base-4.7.0.0
instance Exception SomeAsyncException
--- |@since base-4.7.0.0
+-- | @since base-4.7.0.0
asyncExceptionToException :: Exception e => e -> SomeException
asyncExceptionToException = toException . SomeAsyncException
--- |@since base-4.7.0.0
+-- | @since base-4.7.0.0
asyncExceptionFromException :: Exception e => SomeException -> Maybe e
asyncExceptionFromException x = do
SomeAsyncException a <- fromException x
cast a
-
--- |Asynchronous exceptions.
+-- | Asynchronous exceptions.
data AsyncException
= StackOverflow
-- ^The current thread\'s stack exceeded its limit.
--
GitLab