diff options
| author | aarne <aarne@chalmers.se> | 2013-12-03 13:27:22 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2013-12-03 13:27:22 +0000 |
| commit | 2ef28487effc8f51f92810bd326458e0bc6f3e35 (patch) | |
| tree | b482983ea7529c0d1f21d1df90c649e60392d29c | |
| parent | 852f7483be5b8440834c62c9bc800e2fa2ebd8ab (diff) | |
removed the unlines-lines wrapper from Lexing.unlexer to prevent empty lines when an unlexer (such as -bind or -unchars) is used as an option in linearization. Don't know really why the input had been broken into lines in the first place. You can see the effect by importing LangEng and running "gr -cat=Cl | l -table -bind" before and after recompiling GF.
| -rw-r--r-- | src/compiler/GF/Text/Lexing.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/compiler/GF/Text/Lexing.hs b/src/compiler/GF/Text/Lexing.hs index ec030e158..87d6ba4f7 100644 --- a/src/compiler/GF/Text/Lexing.hs +++ b/src/compiler/GF/Text/Lexing.hs @@ -45,7 +45,8 @@ appLexer :: (String -> [String]) -> String -> String appLexer f = unwords . filter (not . null) . f appUnlexer :: ([String] -> String) -> String -> String -appUnlexer f = unlines . map (f . words) . lines +----appUnlexer f = unlines . map (f . words) . lines +appUnlexer f = f . words wrapHTML :: String -> String wrapHTML = unlines . tag . intersperse "<br>" . lines where |