diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/GFCC/Raw/ParGFCCRaw.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/GFCC/Raw/ParGFCCRaw.hs b/src/GF/GFCC/Raw/ParGFCCRaw.hs index 051358211..b71904948 100644 --- a/src/GF/GFCC/Raw/ParGFCCRaw.hs +++ b/src/GF/GFCC/Raw/ParGFCCRaw.hs @@ -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 |