From 5e8076cab511e8562682646c59b2302b6fae4954 Mon Sep 17 00:00:00 2001 From: Adam Sampson Date: Sun, 18 Mar 2007 01:46:47 +0000 Subject: [PATCH] Fix string parsing --- fco2/Parse.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/fco2/Parse.hs b/fco2/Parse.hs index 66c151e..3203660 100644 --- a/fco2/Parse.hs +++ b/fco2/Parse.hs @@ -441,7 +441,7 @@ digits byte :: OccParser A.LiteralRepr byte - = lexeme (do { m <- md; char '\''; s <- character; char '\''; return $ A.ByteLiteral m s }) + = do { m <- md; char '\''; s <- character; char '\''; return $ A.ByteLiteral m s } "byte" -- i.e. array literal @@ -459,8 +459,8 @@ table' stringLiteral :: OccParser A.LiteralRepr stringLiteral - = lexeme (do { m <- md; char '"'; cs <- many character; char '"'; return $ A.StringLiteral m (concat cs) }) - "string" + = do { m <- md; char '"'; cs <- manyTill character (char '"'); return $ A.StringLiteral m (concat cs) } + "stringLiteral" character :: OccParser String character