From daa4b9df3272f619be17687ab56057ab63060b8c Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 16 Jul 2003 13:33:55 +0000
Subject: [PATCH] [project @ 2003-07-16 13:33:55 by simonmar] Put a newline
 after showing an I/O error.

---
 ghc/compiler/main/Main.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index 1fed643..29039de 100644
--- a/ghc/compiler/main/Main.hs
+++ b/ghc/compiler/main/Main.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -fno-warn-incomplete-patterns -optc-DNON_POSIX_SOURCE #-}
 
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.128 2003/06/27 18:28:33 sof Exp $
+-- $Id: Main.hs,v 1.129 2003/07/16 13:33:55 simonmar Exp $
 --
 -- GHC Driver program
 --
@@ -97,7 +97,7 @@ main =
   	   hFlush stdout
 	   case exception of
 		-- an IO exception probably isn't our fault, so don't panic
-		IOException _ ->  hPutStr stderr (show exception)
+		IOException _ ->  hPutStrLn stderr (show exception)
 		AsyncException StackOverflow ->
 			hPutStrLn stderr "stack overflow: use +RTS -K<size> \ 
 					 \to increase it"
-- 
1.7.10.4