X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsMessages.c;h=e2a30a613ffeada64cb11aa8e61c803190b196b5;hb=831e2ed684863c5e0203c9b32f8ceaca42493e95;hp=ef5c5a226cbcdcce199297e894bfd363c7b6470a;hpb=a2a67cd520b9841114d69a87a423dabcb3b4368e;p=ghc-hetmet.git

diff --git a/rts/RtsMessages.c b/rts/RtsMessages.c
index ef5c5a2..e2a30a6 100644
--- a/rts/RtsMessages.c
+++ b/rts/RtsMessages.c
@@ -187,7 +187,7 @@ rtsErrorMsgFn(const char *s, va_list ap)
 #endif
   {
      /* don't fflush(stdout); WORKAROUND bug in Linux glibc */
-     if (prog_argv != NULL && prog_name != NULL) {
+     if (prog_name != NULL) {
        fprintf(stderr, "%s: ", prog_name);
      }
      vfprintf(stderr, s, ap);