Do string sharing after unescaping in source and canonical grammars.

1 files changed, 1 insertions, 1 deletions

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>" #-}