From: simonmar <unknown>
Date: Tue, 22 Jan 2002 15:55:59 +0000 (+0000)
Subject: [project @ 2002-01-22 15:55:59 by simonmar]
X-Git-Tag: Approximately_9120_patches~274
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4b5ef150751f2c3756ab0d7773688abd487d054f;p=ghc-hetmet.git

[project @ 2002-01-22 15:55:59 by simonmar]
Fix wibbles in previous commit.
---

diff --git a/ghc/utils/unlit/unlit.c b/ghc/utils/unlit/unlit.c
index a454351..475a41f 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);