From 1db8b90811b280a61acb3dc2961fe1ef45c6a2fb Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 29 Sep 2005 12:20:08 +0000
Subject: lexer=ignore

---
 src/GF/UseGrammar/Custom.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/GF/UseGrammar/Custom.hs')

diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs
index c7c68362b..15e909004 100644
--- a/src/GF/UseGrammar/Custom.hs
+++ b/src/GF/UseGrammar/Custom.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/09/18 22:55:46 $ 
+-- > CVS $Date: 2005/09/29 13:20:08 $ 
 -- > CVS $Author: aarne $
--- > CVS $Revision: 1.74 $
+-- > CVS $Revision: 1.75 $
 --
 -- A database for customizable GF shell commands. 
 --
@@ -410,6 +410,7 @@ customTokenizer =
   ,(strCI "codelit",   lexHaskellLiteral . stateIsWord)
   ,(strCI "textlit",   lexTextLiteral . stateIsWord)
   ,(strCI "codeC",     const $ lexC2M)
+  ,(strCI "ignore",    \gr -> lexIgnore (stateIsWord gr) . tokLits)
   ,(strCI "codeCHigh", const $ lexC2M' True)
 -- add your own tokenizers here
   ]
-- 
cgit v1.2.3