diff options
| author | simonmar <unknown> | 2002-01-22 15:55:59 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-01-22 15:55:59 +0000 |
| commit | 4b5ef150751f2c3756ab0d7773688abd487d054f (patch) | |
| tree | 4fbe527da3c1ab2d9c4f665a0c51c6a771463256 /ghc/utils/unlit | |
| parent | 46c2362e62e881124ea6d82cee17ffa3b5115088 (diff) | |
| download | haskell-4b5ef150751f2c3756ab0d7773688abd487d054f.tar.gz | |
[project @ 2002-01-22 15:55:59 by simonmar]
Fix wibbles in previous commit.
Diffstat (limited to 'ghc/utils/unlit')
| -rw-r--r-- | ghc/utils/unlit/unlit.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/utils/unlit/unlit.c b/ghc/utils/unlit/unlit.c index a45435156c..475a41f998 100644 --- a/ghc/utils/unlit/unlit.c +++ b/ghc/utils/unlit/unlit.c @@ -348,8 +348,8 @@ char **argv; { } /* Prefix the output with line pragmas */ - if (add_line_prag_long) { - fprintf(ostream, "# 1 \"%s\"\n");{-# LINE 1 \"%s\" #-}\n", prefix_str, prefix_str); + if (prefix_str) { + fprintf(ostream, "#line 1 \"%s\"\n);{-# LINE 1 \"%s\" #-}\n", prefix_str, prefix_str); } unlit(file, istream, ostream); |