diff options
| author | hallgren <hallgren@chalmers.se> | 2014-04-09 17:26:23 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2014-04-09 17:26:23 +0000 |
| commit | 677d849840e3a5b8f69044ef43151908b0f6737b (patch) | |
| tree | c225873b493ff34cac065b2c7d682aca47fe0014 /src/compiler | |
| parent | 04a6260eeaf626cf4774d087d8810d438f554b46 (diff) | |
Unlexers: move capitalization of first word from GF.Text.Lexing to PGF.Lexing
The capitalization of the first word was done in GF.Text.Lexing.stringOp,
but is now done in the functions unlexText and unlexMixed in PGF.Lexing.
These functions are only used in stringOp and in PGFService (where the change
is needed), so the subtle change in behaviour should not cause any bugs.
Diffstat (limited to 'src/compiler')
| -rw-r--r-- | src/compiler/GF/Text/Lexing.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GF/Text/Lexing.hs b/src/compiler/GF/Text/Lexing.hs index 29647a786..4e07c2126 100644 --- a/src/compiler/GF/Text/Lexing.hs +++ b/src/compiler/GF/Text/Lexing.hs @@ -16,9 +16,9 @@ stringOp name = case name of "words" -> Just $ appLexer words "bind" -> Just $ appUnlexer bindTok "unchars" -> Just $ appUnlexer concat - "unlextext" -> Just $ capitInit . appUnlexer (unlexText . unquote) + "unlextext" -> Just $ appUnlexer (unlexText . unquote) "unlexcode" -> Just $ appUnlexer unlexCode - "unlexmixed" -> Just $ capitInit . appUnlexer (unlexMixed . unquote) + "unlexmixed" -> Just $ appUnlexer (unlexMixed . unquote) "unwords" -> Just $ appUnlexer unwords "to_html" -> Just wrapHTML _ -> transliterate name |