diff options
Diffstat (limited to 'src/GF/Source')
| -rw-r--r-- | src/GF/Source/LexGF.hs | 2 | ||||
| -rw-r--r-- | src/GF/Source/LexGF.x | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Source/LexGF.hs b/src/GF/Source/LexGF.hs index dc6af5e33..4453650bc 100644 --- a/src/GF/Source/LexGF.hs +++ b/src/GF/Source/LexGF.hs @@ -133,7 +133,7 @@ alexInputPrevChar (p, c, s) = c alex_action_3 = tok (\p s -> PT p (TS $ shareString s)) alex_action_4 = tok (\p s -> PT p (eitherResIdent (T_LString . shareString) s)) alex_action_5 = tok (\p s -> PT p (eitherResIdent (TV . shareString) s)) -alex_action_6 = tok (\p s -> PT p (TL $ unescapeInitTail $ shareString s)) +alex_action_6 = tok (\p s -> PT p (TL $ shareString $ unescapeInitTail s)) alex_action_7 = tok (\p s -> PT p (TI s)) {-# LINE 1 "GenericTemplate.hs" #-} {-# LINE 1 "<built-in>" #-} diff --git a/src/GF/Source/LexGF.x b/src/GF/Source/LexGF.x index 6894276d1..e249f1705 100644 --- a/src/GF/Source/LexGF.x +++ b/src/GF/Source/LexGF.x @@ -27,7 +27,7 @@ $white+ ; \' ($u # \')* \' { tok (\p s -> PT p (eitherResIdent (T_LString . shareString) s)) } -- H $l $i* { tok (\p s -> PT p (eitherResIdent (TV . shareString) s)) } -- H -\" ([$u # [\" \\ \n]] | (\\ (\" | \\ | \' | n | t)))* \"{ tok (\p s -> PT p (TL $ unescapeInitTail $ shareString s)) } -- H +\" ([$u # [\" \\ \n]] | (\\ (\" | \\ | \' | n | t)))* \"{ tok (\p s -> PT p (TL $ shareString $ unescapeInitTail s)) } -- H $d+ { tok (\p s -> PT p (TI s)) } |