diff options
| author | bjorn <bjorn@bringert.net> | 2008-06-27 18:14:19 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-06-27 18:14:19 +0000 |
| commit | 5f6691dac3983dadd23dba903d44eabf03d06c27 (patch) | |
| tree | ef1606084c7106474524665416201d59fabde2dd /src | |
| parent | a6e7b8d2a30548e8f35f719700c1e08db6fda1a2 (diff) | |
Set charset to utf-8 when printing html code. This is needed to get Safari to display resdemo.html correctly.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Text/Lexing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 "<br>" . lines where - tag ss = "<html>":"<body>" : ss ++ ["</body>","</html>"] + tag ss = "<html>":"<head>":"<meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\" />":"</head>":"<body>" : ss ++ ["</body>","</html>"] lexText :: String -> [String] lexText s = case s of |