From: qrczak <unknown>
Date: Thu, 11 Jan 2001 19:50:19 +0000 (+0000)
Subject: [project @ 2001-01-11 19:50:19 by qrczak]
X-Git-Tag: Approximately_9120_patches~2941
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=98ac64effcae0b914959c5b7690ec4eda8fd56b9;p=ghc-hetmet.git

[project @ 2001-01-11 19:50:19 by qrczak]
Remove backslash-newline pairs in #-constructs.
---

diff --git a/ghc/utils/hsc2hs/Main.hs b/ghc/utils/hsc2hs/Main.hs
index f2d2c5c..a6dd69e 100644
--- a/ghc/utils/hsc2hs/Main.hs
+++ b/ghc/utils/hsc2hs/Main.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.6 2001/01/04 19:43:07 qrczak Exp $
+-- $Id: Main.hs,v 1.7 2001/01/11 19:50:19 qrczak Exp $
 --
 -- (originally "GlueHsc.hs" by Marcin 'Qrczak' Kowalczyk)
 --
@@ -107,7 +107,7 @@ argument eol = liftM concat $ many
     <|> (do try (string "//"); skipMany (satisfy (/= '\n')); return " ")
     <|> string "/"
     <|> (do char '['; a <- nested; char ']'; return ("["++a++"]"))
-    <|> (do char '\\'; a <- anyChar; return ['\\',a])
+    <|> (do char '\\'; a <- anyChar; return $ if a == '\n' then [] else ['\\',a])
     <|> (do char '{'; a <- nested; char '}'; return ("{"++a++"}"))
     <?> "C expression")
     where nested = argument (string "\n")