1
0
forked from GitHub/gf-core

Use isAlpha instead of isLetter to compile with GHC 6.4. Reported by moises.

This commit is contained in:
bjorn
2008-02-08 09:20:32 +00:00
parent 9bd9e2ee7a
commit 18b2205d0d

View File

@@ -28,7 +28,7 @@ pTerm n = skipSpaces >> (pParen <++ pApp <++ pNum <++ pStr <++ pMeta)
return (AInt (read x)))
pMeta = char '?' >> return AMet
pIdent = liftM CId $ liftM2 (:) (satisfy isIdentFirst) (munch isIdentRest)
isIdentFirst c = c == '_' || isLetter c
isIdentFirst c = c == '_' || isAlpha c
isIdentRest c = c == '_' || c == '\'' || isAlphaNum c
-- Parser combinators with only left-biased choice