diff options
| author | bjorn <bjorn@bringert.net> | 2008-02-08 09:20:32 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-02-08 09:20:32 +0000 |
| commit | 18b2205d0d82c7abd5a5b9432f20698417db4356 (patch) | |
| tree | 695664765502b20a70bbdb779d9d00975ca8e8e7 /src | |
| parent | 9bd9e2ee7a739de62733c082074e1bfcdc44a539 (diff) | |
Use isAlpha instead of isLetter to compile with GHC 6.4. Reported by moises.
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 |