diff options
Diffstat (limited to 'libraries/base/GHC/Conc/Signal.hs')
| -rw-r--r-- | libraries/base/GHC/Conc/Signal.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/Conc/Signal.hs b/libraries/base/GHC/Conc/Signal.hs index 4afccf2496..e5cb5e3e43 100644 --- a/libraries/base/GHC/Conc/Signal.hs +++ b/libraries/base/GHC/Conc/Signal.hs @@ -55,7 +55,7 @@ setHandler sig handler = do let int = fromIntegral sig withMVar signal_handlers $ \arr -> if not (inRange (boundsIOArray arr) int) - then error "GHC.Conc.setHandler: signal out of range" + then errorWithoutStackTrace "GHC.Conc.setHandler: signal out of range" else do old <- unsafeReadIOArray arr int unsafeWriteIOArray arr int handler return old |