From c96162ba8b228e0e2db0202c4ee155103537488a Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Sun, 15 Aug 2004 21:02:10 +0000
Subject: experiments with unlexer

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

(limited to 'src/GF/UseGrammar')

diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs
index 3fb386c79..60c906fa0 100644
--- a/src/GF/UseGrammar/Custom.hs
+++ b/src/GF/UseGrammar/Custom.hs
@@ -301,7 +301,7 @@ customUntokenizer =
   ,(strCI "code",      const $ formatAsCode)
   ,(strCI "textlit",   const $ formatAsTextLit)
   ,(strCI "codelit",   const $ formatAsCodeLit)
-  ,(strCI "concat",    const $ concat . words)
+  ,(strCI "concat",    const $ concatRemSpace)
   ,(strCI "glue",      const $ performBinds)
   ,(strCI "reverse",   const $ reverse)
   ,(strCI "bind",      const $ performBinds) -- backward compat
-- 
cgit v1.2.3