diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-22 18:33:15 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-22 18:33:15 +0000 |
| commit | e9b21c92a046adad2132087355400af703f54d3e (patch) | |
| tree | 925a78dc741cf93f0c2beccc89c6a0a59b9c3e72 /src-3.0/GF/Text | |
| parent | 8fb6ed6692bd08aba36f3217944ec924a9cdc618 (diff) | |
Finnish negation particle stored in VP for vowel harmony
Diffstat (limited to 'src-3.0/GF/Text')
| -rw-r--r-- | src-3.0/GF/Text/Lexing.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src-3.0/GF/Text/Lexing.hs b/src-3.0/GF/Text/Lexing.hs index 16391d183..beabf217b 100644 --- a/src-3.0/GF/Text/Lexing.hs +++ b/src-3.0/GF/Text/Lexing.hs @@ -9,11 +9,13 @@ import Data.Char 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 "lexmixed" -> Just $ appLexer lexMixed "words" -> Just $ appLexer words "bind" -> Just $ appUnlexer bindTok + "uncars" -> Just $ appUnlexer concat "unlextext" -> Just $ appUnlexer unlexText "unlexcode" -> Just $ appUnlexer unlexCode "unlexmixed" -> Just $ appUnlexer unlexMixed |