diff options
| author | krasimir <krasimir@chalmers.se> | 2010-07-31 13:56:55 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-07-31 13:56:55 +0000 |
| commit | c033bbccff2c5b911453682c3b6cfa8162bcd67d (patch) | |
| tree | 7e667831aeccee5ebe47e2be1c0b7ba7df6f40d6 /src/server | |
| parent | d78aaf18da0738918d95cb5c91fa8e4eb754b6c8 (diff) | |
fix: FastCGIUtils.outputHTML should do UTF8 encoding
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/FastCGIUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/server/FastCGIUtils.hs b/src/server/FastCGIUtils.hs index 43b16eea0..dd1a567d4 100644 --- a/src/server/FastCGIUtils.hs +++ b/src/server/FastCGIUtils.hs @@ -177,7 +177,7 @@ outputPNG x = do outputHTML :: String -> CGI CGIResult outputHTML x = do setHeader "Content-Type" "text/html" - outputStrict x + outputStrict $ UTF8.encodeString x outputStrict :: String -> CGI CGIResult outputStrict x | x == x = output x |