From 081c14f27b26b72e182d77f60925b9a95b1641df Mon Sep 17 00:00:00 2001
From: qrczak <unknown>
Date: Tue, 16 Jan 2001 21:05:51 +0000
Subject: [PATCH] [project @ 2001-01-16 21:05:51 by qrczak] Correctly delimit
 a LINE pragma.

---
 ghc/compiler/main/DriverPipeline.hs |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index d7bc710..b0f2915 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverPipeline.hs,v 1.47 2001/01/09 17:16:35 rrt Exp $
+-- $Id: DriverPipeline.hs,v 1.48 2001/01/16 21:05:51 qrczak Exp $
 --
 -- GHC Driver
 --
@@ -338,7 +338,7 @@ run_phase Cpp basename suff input_fn output_fn
 
 	    runSomething "C pre-processor" 
 		(unwords
-       	    	   (["echo '{-# LINE 1 \"" ++ input_fn ++ "\" -}'", ">", output_fn, "&&",
+       	    	   (["echo '{-# LINE 1 \"" ++ input_fn ++ "\" #-}'", ">", output_fn, "&&",
 		     cpp, verb] 
 		    ++ include_paths
 		    ++ hs_src_cpp_opts
@@ -347,7 +347,7 @@ run_phase Cpp basename suff input_fn output_fn
 		   ))
 	  else do
 	    runSomething "Ineffective C pre-processor"
-	           ("echo '{-# LINE 1 \""  ++ input_fn ++ "\" -}' > " 
+	           ("echo '{-# LINE 1 \""  ++ input_fn ++ "\" #-}' > " 
 		    ++ output_fn ++ " && cat " ++ input_fn
 		    ++ " >> " ++ output_fn)
        return True
-- 
1.7.10.4