msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Set charset to utf-8 when printing html code. This is needed to get Safari to display resdemo.html correctly.

Browse Source
This commit is contained in:
bjorn
2008-06-27 18:14:19 +00:00
parent 7d9a48788d
commit 428d92eac0
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Text/Lexing.hs
View File

@@ -37,7 +37,7 @@ appUnlexer f = unlines . map (f . words) . lines
wrapHTML :: String -> String wrapHTML :: String -> String
wrapHTML = unlines . tag . intersperse "<br>" . lines where 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 :: String -> [String]
lexText s = case s of lexText s = case s of