From 174e46d5173abe64a5a05e26864d1339f3bcbe61 Mon Sep 17 00:00:00 2001 From: simonmar Date: Thu, 16 Aug 2001 11:06:10 +0000 Subject: [PATCH] [project @ 2001-08-16 11:06:10 by simonmar] add newline to "WARNING: error while reading directory" message. --- ghc/compiler/main/DriverUtil.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 [] ) -- 1.7.10.4