From 2ef28487effc8f51f92810bd326458e0bc6f3e35 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