From 1778cd7c19f0b658d567f82eb3bdedd3634d3017 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 3 Dec 2013 13:27:22 +0000 Subject: [PATCH] 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. --- src/compiler/GF/Text/Lexing.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 "
" . lines where