From 067a3de5b68686a00e1596f5cb16cfd48572f2c5 Mon Sep 17 00:00:00 2001
From: rrt <unknown>
Date: Wed, 9 Aug 2000 15:19:58 +0000
Subject: [PATCH] [project @ 2000-08-09 15:19:58 by rrt] Changed use of error
 for "Compilation failed" message to hPutStr stderr; seemed
 better to SWM, and stops error messages being different on
 Windows where RTS hooks don't work with DLLs.

---
 ghc/compiler/main/ErrUtils.lhs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/main/ErrUtils.lhs b/ghc/compiler/main/ErrUtils.lhs
index bf94690..05d0fd5 100644
--- a/ghc/compiler/main/ErrUtils.lhs
+++ b/ghc/compiler/main/ErrUtils.lhs
@@ -20,6 +20,7 @@ import Bag		( Bag, bagToList, isEmptyBag )
 import SrcLoc		( SrcLoc, noSrcLoc )
 import Util		( sortLt )
 import Outputable
+import IO		( hPutStr, stderr )
 \end{code}
 
 \begin{code}
@@ -85,7 +86,7 @@ ghcExit :: Int -> IO ()
 
 ghcExit val
   = if val /= 0
-    then error "Compilation had errors\n"
+    then hPutStr stderr "Compilation had errors\n"
     else return ()
 \end{code}
 
-- 
1.7.10.4