diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-11-19 13:52:30 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-11-19 13:52:30 +0000 |
| commit | 831e2ed684863c5e0203c9b32f8ceaca42493e95 (patch) | |
| tree | 7a1f99e9f6af148fa69b56471be8c709853d0413 /rts/RtsMessages.c | |
| parent | fb48c6e77a6e366072f8032382b2d3dbc17fa6a0 (diff) | |
| download | haskell-831e2ed684863c5e0203c9b32f8ceaca42493e95.tar.gz | |
Print the prog name in errorBelch() even if prog_argv is not set yet
This means we get the prog name in error messages from the flag parser
Diffstat (limited to 'rts/RtsMessages.c')
| -rw-r--r-- | rts/RtsMessages.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RtsMessages.c b/rts/RtsMessages.c index ef5c5a226c..e2a30a613f 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); |