diff options
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 |