diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-11-07 16:30:56 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-11-07 16:30:56 +0000 |
| commit | 947949648f3dacffa2bb075e1bd561ba31760908 (patch) | |
| tree | 8573f08513bcd59613df8fc9d0a382fd17090f53 /src/GF/GFCC/LexGFCC.hs | |
| parent | 0be4e801f45e7ec4b2d75575c0cf36053cc62754 (diff) | |
added fields for global options and showable lincats to gfcc
Diffstat (limited to 'src/GF/GFCC/LexGFCC.hs')
| -rw-r--r-- | src/GF/GFCC/LexGFCC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/GFCC/LexGFCC.hs b/src/GF/GFCC/LexGFCC.hs index 8d91493fb..c86195e3d 100644 --- a/src/GF/GFCC/LexGFCC.hs +++ b/src/GF/GFCC/LexGFCC.hs @@ -86,7 +86,7 @@ eitherResIdent tv s = treeFind resWords | s > a = treeFind right | s == a = t -resWords = b "lin" (b "flags" (b "cat" (b "abstract" N N) (b "concrete" N N)) (b "grammar" (b "fun" N N) N)) (b "oper" (b "lindef" (b "lincat" N N) N) (b "printname" (b "pre" N N) N)) +resWords = b "lin" (b "flags" (b "cat" (b "abstract" N N) (b "concrete" N N)) (b "grammar" (b "fun" N N) N)) (b "param" (b "lindef" (b "lincat" N N) (b "oper" N N)) (b "printname" (b "pre" N N) N)) where b s = B s (TS s) unescapeInitTail :: String -> String |