From 7e82e4a71036d65e955bb160e8ba3cadbfba31d9 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Mon, 10 Nov 2008 10:59:13 +0000
Subject: updated tutorial up to lexers ; fixed lexcode in GF (was wrong due to
 a typo)

---
 src/GF/Text/Lexing.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3