From d42984a08f8ea44123c84f267e060a7e97a003f0 Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Tue, 7 Dec 2004 13:02:27 +0000
Subject: Do string sharing after unescaping in source and canonical grammars.

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

(limited to 'src/GF/Canon/LexGFC.hs')

diff --git a/src/GF/Canon/LexGFC.hs b/src/GF/Canon/LexGFC.hs
index db745f20f..f26ed3e61 100644
--- a/src/GF/Canon/LexGFC.hs
+++ b/src/GF/Canon/LexGFC.hs
@@ -131,7 +131,7 @@ alexInputPrevChar (p, c, s) = c
 
 alex_action_1 = tok (\p s -> PT p (TS $ shareString s)) 
 alex_action_2 = tok (\p s -> PT p (eitherResIdent (TV . shareString) s)) 
-alex_action_3 = tok (\p s -> PT p (TL $ unescapeInitTail $ shareString s)) 
+alex_action_3 = tok (\p s -> PT p (TL $ shareString $ unescapeInitTail s)) 
 alex_action_4 = tok (\p s -> PT p (TI s))    
 {-# LINE 1 "GenericTemplate.hs" #-}
 {-# LINE 1 "<built-in>" #-}
-- 
cgit v1.2.3