From a45096d650b6212273bbbc5c92c66c5c921412b0 Mon Sep 17 00:00:00 2001
From: qrczak <unknown>
Date: Sun, 4 Mar 2001 11:18:03 +0000
Subject: [PATCH] [project @ 2001-03-04 11:18:03 by qrczak] Fix #{stuff}
 parsing when stuff contains end of line.

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

diff --git a/ghc/utils/hsc2hs/Main.hs b/ghc/utils/hsc2hs/Main.hs
index 58d31a0..f103d4c 100644
--- a/ghc/utils/hsc2hs/Main.hs
+++ b/ghc/utils/hsc2hs/Main.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.23 2001/03/01 20:32:51 qrczak Exp $
+-- $Id: Main.hs,v 1.24 2001/03/04 11:18:03 qrczak Exp $
 --
 -- (originally "GlueHsc.hs" by Marcin 'Qrczak' Kowalczyk)
 --
@@ -145,19 +145,19 @@ special = do
     pos <- getPosition
     char '#'
     skipMany (oneOf " \t")
-    keyArg pos <|> do
+    keyArg pos pzero <|> do
         char '{'
         skipMany (oneOf " \t")
-        sp <- keyArg pos
+        sp <- keyArg pos (string "\n")
         char '}'
         return sp
 
-keyArg :: SourcePos -> Parser Token
-keyArg pos = do
+keyArg :: SourcePos -> Parser String -> Parser Token
+keyArg pos eol = do
     key <- liftM2 (:) (letter <|> char '_') (many (alphaNum <|> char '_'))
         <?> "hsc directive"
     skipMany (oneOf " \t")
-    arg <- argument pzero
+    arg <- argument eol
     return (Special pos key arg)
 
 argument :: Parser String -> Parser String
-- 
1.7.10.4