diff options
| author | aarne <unknown> | 2003-12-04 12:08:29 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-12-04 12:08:29 +0000 |
| commit | 15f94710f0403c760ed4ec1a8328c89400c4d94c (patch) | |
| tree | 93e1c81f180685a8a2afc4837aea511f48e312ca /src/GF/UseGrammar/Custom.hs | |
| parent | 6a9dc9e5f5ddea8130b88a88d1e07f489d0906f9 (diff) | |
Added French for new API. Started alpha conv. Fixed bugs.
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 64cb29680..c117c0335 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -241,8 +241,8 @@ customTokenizer = ,(strCI "code", const $ lexHaskell) ,(strCI "text", const $ lexText) ,(strCI "unglue", \gr -> map tS . decomposeWords (stateMorpho gr)) ----- ,(strCI "codelit", lexHaskellLiteral . stateIsWord) ----- ,(strCI "textlit", lexTextLiteral . stateIsWord) + ,(strCI "codelit", lexHaskellLiteral . stateIsWord) + ,(strCI "textlit", lexTextLiteral . stateIsWord) ,(strCI "codeC", const $ lexC2M) ,(strCI "codeCHigh", const $ lexC2M' True) -- add your own tokenizers here |