From ba389eaddfa10993a5982bb706b928a0f9a3258e Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 18 Aug 1997 23:57:32 +0000
Subject: [PATCH] [project @ 1997-08-18 23:57:32 by sof] -cpp fix
---
ghc/driver/ghc.lprl | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/driver/ghc.lprl b/ghc/driver/ghc.lprl
index f2494f422d5e..5b05358b885d 100644
--- a/ghc/driver/ghc.lprl
+++ b/ghc/driver/ghc.lprl
@@ -1706,7 +1706,7 @@ sub runLit2pgm {
local($to_do) = "";
# Only add #line pragma if we're going to need it.
- $to_do = "echo '#line 1 \"$in_lit2pgm\"' > $lit2pgm_hscpp && " if ($HsCpp ne $Cat);
+ $to_do = "echo '#line 1 \"$in_lit2pgm\"' > $lit2pgm_hscpp && " if ($Cpp_flag_set);
$to_do .= "$Unlit @Unlit_flags $in_lit2pgm - >> $lit2pgm_hscpp";
@Files_to_tidy = ( $lit2pgm_hscpp );
--
GitLab