From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 3 Sep 2008 10:50:18 +0000 (+0000)
Subject: sysErrorBelch: don't put an extra \n on Windows
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=63d753d105f0e0c4849631d0494fea69f82c8a41;p=ghc-hetmet.git

sysErrorBelch: don't put an extra \n on Windows
---

diff --git a/rts/RtsMessages.c b/rts/RtsMessages.c
index 362b369..c263a2c 100644
--- a/rts/RtsMessages.c
+++ b/rts/RtsMessages.c
@@ -239,7 +239,12 @@ rtsSysErrorMsgFn(const char *s, va_list ap)
 	}
 	vfprintf(stderr, s, ap);
 	if (syserr) {
+#if defined(cygwin32_HOST_OS) || defined (mingw32_HOST_OS)
+            // Win32 error messages have a terminating \n
+	    fprintf(stderr, ": %s", syserr);
+#else
 	    fprintf(stderr, ": %s\n", syserr);
+#endif
 	} else {
 	    fprintf(stderr, "\n");
 	}