diff options
Diffstat (limited to 'libraries/base/GHC/IO/Buffer.hs')
| -rw-r--r-- | libraries/base/GHC/IO/Buffer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/IO/Buffer.hs b/libraries/base/GHC/IO/Buffer.hs index 77f1d99f46..b2d4cd1843 100644 --- a/libraries/base/GHC/IO/Buffer.hs +++ b/libraries/base/GHC/IO/Buffer.hs @@ -287,5 +287,5 @@ checkBuffer buf@Buffer{ bufState = state, bufL=r, bufR=w, bufSize=size } = do check :: Buffer a -> Bool -> IO () check _ True = return () -check buf False = error ("buffer invariant violation: " ++ summaryBuffer buf) +check buf False = errorWithoutStackTrace ("buffer invariant violation: " ++ summaryBuffer buf) |