msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

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

Browse Source
This commit is contained in:
bjorn
2008-02-08 09:20:32 +00:00
parent 9bd9e2ee7a
commit 18b2205d0d
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/GFCC/Raw/ParGFCCRaw.hs
View File

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