diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-11-10 10:59:13 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-11-10 10:59:13 +0000 |
| commit | 7e82e4a71036d65e955bb160e8ba3cadbfba31d9 (patch) | |
| tree | 7b7444688d32be0c3c7d343fde02ba59df8d7a96 /src | |
| parent | c6968b626ca8ff289d1eda24dab57af541037c42 (diff) | |
updated tutorial up to lexers ; fixed lexcode in GF (was wrong due to a typo)
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Text/Lexing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Text/Lexing.hs b/src/GF/Text/Lexing.hs index 834f0b5cc..8d4787de8 100644 --- a/src/GF/Text/Lexing.hs +++ b/src/GF/Text/Lexing.hs @@ -13,7 +13,7 @@ stringOp :: String -> Maybe (String -> String) stringOp name = case name of "chars" -> Just $ appLexer (filter (not . all isSpace) . map return) "lextext" -> Just $ appLexer lexText - "lexcode" -> Just $ appLexer lexText + "lexcode" -> Just $ appLexer lexCode "lexmixed" -> Just $ appLexer lexMixed "words" -> Just $ appLexer words "bind" -> Just $ appUnlexer bindTok |