diff options
Diffstat (limited to 'compiler/main/ErrUtils.lhs')
| -rw-r--r-- | compiler/main/ErrUtils.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/main/ErrUtils.lhs b/compiler/main/ErrUtils.lhs index e0d6a9643e..3fd92ed473 100644 --- a/compiler/main/ErrUtils.lhs +++ b/compiler/main/ErrUtils.lhs @@ -52,6 +52,7 @@ import Data.IORef import Data.Ord import Data.Time import Control.Monad +import Control.Monad.IO.Class import System.IO -- ----------------------------------------------------------------------------- @@ -360,6 +361,6 @@ prettyPrintGhcErrors dflags PprProgramError str doc -> pprDebugAndThen dflags pgmError str doc _ -> - throw e + liftIO $ throwIO e \end{code} |