From: simonmar <unknown>
Date: Thu, 16 Aug 2001 11:06:10 +0000 (+0000)
Subject: [project @ 2001-08-16 11:06:10 by simonmar]
X-Git-Tag: Approximately_9120_patches~1213
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=174e46d5173abe64a5a05e26864d1339f3bcbe61;p=ghc-hetmet.git

[project @ 2001-08-16 11:06:10 by simonmar]
add newline to "WARNING: error while reading directory" message.
---

diff --git a/ghc/compiler/main/DriverUtil.hs b/ghc/compiler/main/DriverUtil.hs
index ad067d6..264be5c 100644
--- a/ghc/compiler/main/DriverUtil.hs
+++ b/ghc/compiler/main/DriverUtil.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverUtil.hs,v 1.26 2001/07/23 20:19:53 sof Exp $
+-- $Id: DriverUtil.hs,v 1.27 2001/08/16 11:06:10 simonmar Exp $
 --
 -- Utils for the driver
 --
@@ -61,7 +61,7 @@ optionRegex = mkRegex "\\{-#[ \t]+OPTIONS[ \t]+(.*)#-\\}"   -- -}
 
 softGetDirectoryContents d
    = IO.catch (getDirectoryContents d)
-	  (\_ -> do hPutStr stderr 
+	  (\_ -> do hPutStrLn stderr 
 		          ("WARNING: error while reading directory " ++ d)
 		    return []
 	  )