Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC
Commits:
-
b968e1c1
by Rodrigo Mesquita at 2025-06-18T15:36:18-04:00
1 changed file:
Changes:
| ... | ... | @@ -177,7 +177,7 @@ showGhcException ctx = showPlainGhcException . \case |
| 177 | 177 | PprProgramError str sdoc -> PlainProgramError $
|
| 178 | 178 | concat [str, "\n\n", renderWithContext ctx sdoc]
|
| 179 | 179 | |
| 180 | -throwGhcException :: GhcException -> a
|
|
| 180 | +throwGhcException :: HasCallStack => GhcException -> a
|
|
| 181 | 181 | throwGhcException = Exception.throw
|
| 182 | 182 | |
| 183 | 183 | throwGhcExceptionIO :: GhcException -> IO a
|
| ... | ... | @@ -192,7 +192,7 @@ pprPanic s doc = withFrozenCallStack $ panicDoc s (doc $$ callStackDoc) |
| 192 | 192 | |
| 193 | 193 | -- | Throw an exception saying "bug in GHC"
|
| 194 | 194 | panicDoc :: HasCallStack => String -> SDoc -> a
|
| 195 | -panicDoc x doc = throwGhcException (PprPanic x doc)
|
|
| 195 | +panicDoc x doc = withFrozenCallStack $ throwGhcException (PprPanic x doc)
|
|
| 196 | 196 | |
| 197 | 197 | -- | Throw an exception saying "this isn't finished yet"
|
| 198 | 198 | sorryDoc :: String -> SDoc -> a
|