From c86192273657fe17d4dfe246f0d850379b9e5866 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 24 Aug 2004 11:49:46 +0000
Subject: some var parser bug fixes

---
 src/GF/UseGrammar/Custom.hs | 1 +
 1 file changed, 1 insertion(+)

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

diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs
index 035099acc..e7989de30 100644
--- a/src/GF/UseGrammar/Custom.hs
+++ b/src/GF/UseGrammar/Custom.hs
@@ -320,6 +320,7 @@ customTokenizer =
   ,(strCI "vars",      const $ tokVars)
   ,(strCI "chars",     const $ map (tS . singleton))
   ,(strCI "code",      const $ lexHaskell)
+  ,(strCI "codevars",  const $ (mkTokVars lexHaskell))
   ,(strCI "text",      const $ lexText)
   ,(strCI "unglue",    \gr -> map tS . decomposeWords (stateMorpho gr))
   ,(strCI "codelit",   lexHaskellLiteral . stateIsWord)
-- 
cgit v1.2.3