[Git][ghc/ghc][wip/romes/25052] Apply 1 suggestion(s) to 1 file(s)

[Rodrigo Mesquita (@alt-romes)]

Rodrigo Mesquita pushed to branch wip/romes/25052 at Glasgow Haskell Compiler / GHC


Commits:
51b2ed87 by Rodrigo Mesquita at 2024-07-31T16:46:40+00:00
Apply 1 suggestion(s) to 1 file(s)

Co-authored-by: sheaf <sam.derbyshire at gmail.com>
- - - - -


1 changed file:

- libraries/ghc-internal/src/GHC/Internal/Exception/Type.hs


Changes:

=====================================
libraries/ghc-internal/src/GHC/Internal/Exception/Type.hs
=====================================
@@ -204,11 +204,9 @@ instance Exception SomeException where
         dc -> displayException e ++ "\n" ++ dc
 
 displayContext :: ExceptionContext -> String
-displayContext (ExceptionContext anns0) = go anns0
+displayContext (ExceptionContext anns0) = unlines $ map go anns0
   where
-    go [SomeExceptionAnnotation ann]        = displayExceptionAnnotation ann
-    go (SomeExceptionAnnotation ann : anns) = displayExceptionAnnotation ann ++ "\n" ++ go anns
-    go [] = ""
+    go (SomeExceptionAnnotation ann) = displayExceptionAnnotation ann
 
 newtype NoBacktrace e = NoBacktrace e
     deriving (Show)



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/51b2ed87dc7e9334e579d7966a2b727a93ea385a

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/51b2ed87dc7e9334e579d7966a2b727a93ea385a
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20240731/b6400e84/attachment-0001.html>