From 98ac64effcae0b914959c5b7690ec4eda8fd56b9 Mon Sep 17 00:00:00 2001
From: qrczak <unknown>
Date: Thu, 11 Jan 2001 19:50:19 +0000
Subject: [PATCH] [project @ 2001-01-11 19:50:19 by qrczak] Remove
 backslash-newline pairs in #-constructs.

---
 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 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")
-- 
1.7.10.4