From c033bbccff2c5b911453682c3b6cfa8162bcd67d Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Sat, 31 Jul 2010 13:56:55 +0000
Subject: [PATCH] fix: FastCGIUtils.outputHTML should do UTF8 encoding

---
 src/server/FastCGIUtils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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