From ca0131f2d159c67f81900275d77600d8b2d5f7e1 Mon Sep 17 00:00:00 2001 From: Adam Sampson Date: Sun, 29 Apr 2007 00:10:16 +0000 Subject: [PATCH] Fix parsing of typed hex literals --- fco2/Parse.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fco2/Parse.hs b/fco2/Parse.hs index 1d6b5bc..f5d2a86 100644 --- a/fco2/Parse.hs +++ b/fco2/Parse.hs @@ -680,7 +680,7 @@ integer :: OccParser A.LiteralRepr integer = do m <- md do { d <- lexeme digits; return $ A.IntLiteral m d } - <|> do { sHash; d <- many1 hexDigit; return $ A.HexLiteral m d } + <|> do { d <- lexeme (sHash >> many1 hexDigit); return $ A.HexLiteral m d } "integer literal" digits :: OccParser String