From ca9945d0b186f0062e58786aa472f7ee3339ba9a Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 1 Oct 2003 16:45:10 +0000
Subject: [PATCH] [project @ 2003-10-01 16:45:10 by sof] outCLine: Use "#line
 n <filename>", not "# n <filename>". The latter          
 isn't ISO (and causes breakage when compiling output with 
   MSVC.)

---
 ghc/utils/hsc2hs/Main.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/utils/hsc2hs/Main.hs b/ghc/utils/hsc2hs/Main.hs
index b95c8cb..f90a89c 100644
--- a/ghc/utils/hsc2hs/Main.hs
+++ b/ghc/utils/hsc2hs/Main.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -fglasgow-exts #-}
 
 ------------------------------------------------------------------------
--- $Id: Main.hs,v 1.48 2003/08/27 14:11:17 panne Exp $
+-- $Id: Main.hs,v 1.49 2003/10/01 16:45:10 sof Exp $
 --
 -- Program for converting .hsc files to .hs files, by converting the
 -- file into a C program which is run to generate the Haskell source.
@@ -775,7 +775,7 @@ conditional _         = False
 
 outCLine :: SourcePos -> String
 outCLine (SourcePos name line) =
-    "# "++show line++" \""++showCString (snd (splitName name))++"\"\n"
+    "#line "++show line++" \""++showCString (snd (splitName name))++"\"\n"
 
 outHsLine :: SourcePos -> String
 outHsLine (SourcePos name line) =
-- 
1.7.10.4