X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fghc%2FGHCmain.lhs;h=fa143b666974e9af76e50e82b83c02f36a454cfa;hb=552de7b426f990a961a051ec486a77982c4b7770;hp=0a67a1d704fb7527c2ff85a334278f0c28d58ef4;hpb=e84b92ee647e749ea48fecf3ad1f4f328f667a70;p=ghc-hetmet.git

diff --git a/ghc/lib/ghc/GHCmain.lhs b/ghc/lib/ghc/GHCmain.lhs
index 0a67a1d..fa143b6 100644
--- a/ghc/lib/ghc/GHCmain.lhs
+++ b/ghc/lib/ghc/GHCmain.lhs
@@ -9,11 +9,12 @@ module GHCmain( mainIO ) where
 
 import Prelude
 import {-# SOURCE #-} qualified Main	-- for type of "Main.main"
+import GHCerr ( ioError )
 \end{code}
 
 \begin{code}
 mainIO :: IO ()		-- It must be of type (IO t) because that's what
 			-- the RTS expects.  GHC doesn't check this, so
 			-- make sure this type signature stays!
-mainIO = catch Main.main (\err -> error ("I/O error: "++showsPrec 0 err "\n"))
+mainIO = catch Main.main (\err -> ioError (showsPrec 0 err "\n"))
 \end{code}