From e9b21c92a046adad2132087355400af703f54d3e Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 22 Jun 2008 18:33:15 +0000 Subject: Finnish negation particle stored in VP for vowel harmony --- src-3.0/GF/Text/Lexing.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src-3.0/GF/Text') 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 -- cgit v1.2.3