diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-07-30 12:01:34 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-07-30 12:01:34 +0000 |
| commit | aa9a4f1053d3c554629a2ec25955e7530c95b892 (patch) | |
| tree | 7d9839bc410e92c7b0a6e35713fbbf03673338be /compiler/iface/BinIface.hs | |
| parent | 179a3a7bd67ccc816e3b934eff770fb49c4cc456 (diff) | |
| download | haskell-aa9a4f1053d3c554629a2ec25955e7530c95b892.tar.gz | |
Follow extensible exception changes
Diffstat (limited to 'compiler/iface/BinIface.hs')
| -rw-r--r-- | compiler/iface/BinIface.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs index a544b625e9..c155fb28c4 100644 --- a/compiler/iface/BinIface.hs +++ b/compiler/iface/BinIface.hs @@ -44,7 +44,6 @@ import Data.List import Data.Word import Data.Array import Data.IORef -import Control.Exception import Control.Monad data CheckHiWay = CheckHiWay | IgnoreHiWay @@ -82,7 +81,7 @@ readBinIface_ checkHiWay traceBinIFaceReading hi_path nc = do errorOnMismatch what wanted got -- This will be caught by readIface which will emit an error -- msg containing the iface module name. - = when (wanted /= got) $ throwDyn $ ProgramError + = when (wanted /= got) $ ghcError $ ProgramError (what ++ " (wanted " ++ show wanted ++ ", got " ++ show got ++ ")") bh <- Binary.readBinMem hi_path |