From 5f6691dac3983dadd23dba903d44eabf03d06c27 Mon Sep 17 00:00:00 2001 From: bjorn Date: Fri, 27 Jun 2008 18:14:19 +0000 Subject: [PATCH] Set charset to utf-8 when printing html code. This is needed to get Safari to display resdemo.html correctly. --- src/GF/Text/Lexing.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/GF/Text/Lexing.hs b/src/GF/Text/Lexing.hs index 38018ff54..70bb4e434 100644 --- a/src/GF/Text/Lexing.hs +++ b/src/GF/Text/Lexing.hs @@ -37,7 +37,7 @@ appUnlexer f = unlines . map (f . words) . lines wrapHTML :: String -> String wrapHTML = unlines . tag . intersperse "
" . lines where - tag ss = "":"" : ss ++ ["",""] + tag ss = "":"":"":"":"" : ss ++ ["",""] lexText :: String -> [String] lexText s = case s of