hi

libraries/base/GHC/Exception/Type.hs

@@ -55,7 +55,7 @@ exceptionContext (SomeException _) = ?exc_context
 -- | Add more 'ExceptionContext' to a 'SomeException'.
 addExceptionContext :: ExceptionContext -> SomeException -> SomeException
 addExceptionContext ctxt' se@(SomeException e) =
-    let ?ctxt = exceptionContext se `mergeExceptionContexts` ctxt'
+    let ?exc_context = exceptionContext se `mergeExceptionContexts` ctxt'
     in SomeException e
 
 -- | @since 3.0
@@ -169,9 +169,7 @@ class (Typeable e, Show e) => Exception e where
 -- | @since 3.0
 instance Exception SomeException where
     toException se = se
-    toExceptionWithContext se@(SomeException e) ctxt =
-        SomeException e
-      where ?exc_context = ctxt <> exceptionContext se
+    toExceptionWithContext se ctxt = addExceptionContext ctxt se
     fromException = Just
     displayException (SomeException e) =
         displayException e ++ "\n" ++ displayContext ?exc_context