diff options
Diffstat (limited to 'src/runtime/haskell')
| -rw-r--r-- | src/runtime/haskell/PGF/Lexing.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/runtime/haskell/PGF/Lexing.hs b/src/runtime/haskell/PGF/Lexing.hs index 10d8332f7..a49328826 100644 --- a/src/runtime/haskell/PGF/Lexing.hs +++ b/src/runtime/haskell/PGF/Lexing.hs @@ -20,7 +20,7 @@ lexText' uncap1 = uncap . lext where _ -> s unlexText :: [String] -> String -unlexText = unlext where +unlexText = capitInit . unlext where unlext s = case s of w:[] -> w w:[c]:[] | isPunct c -> w ++ [c] @@ -67,7 +67,7 @@ lexMixed = concat . alternate False where lex env = if env then lexCode else lexText unlexMixed :: [String] -> String -unlexMixed = concat . alternate False where +unlexMixed = capitInit . concat . alternate False where alternate env s = case s of _:_ -> case break (=="$") s of (t,[]) -> unlex env t : [] |