diff options
Diffstat (limited to 'ghc/compiler/utils/StringBuffer.lhs')
| -rw-r--r-- | ghc/compiler/utils/StringBuffer.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs index 0b65aa2fc1..f49449ec39 100644 --- a/ghc/compiler/utils/StringBuffer.lhs +++ b/ghc/compiler/utils/StringBuffer.lhs @@ -195,7 +195,7 @@ slurpFileExpandTabs fname = do (\ handle -> do sz <- hFileSize handle if sz > toInteger (maxBound::Int) - then IOERROR (userError "slurpFile: file too big") + then ioError (userError "slurpFile: file too big") else do let sz_i = fromInteger sz sz_i' = (sz_i * 12) `div` 10 -- add 20% for tabs |