From 991a58badb2a97e839adc6ef852b13cc08e88f66 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Sun, 29 Nov 2009 14:51:12 +0000
Subject: TranslateApp now have browser for abstract syntax

---
 src/server/FastCGIUtils.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/server/FastCGIUtils.hs')

diff --git a/src/server/FastCGIUtils.hs b/src/server/FastCGIUtils.hs
index 603ca0db3..763eeb292 100644
--- a/src/server/FastCGIUtils.hs
+++ b/src/server/FastCGIUtils.hs
@@ -4,6 +4,7 @@ module FastCGIUtils (initFastCGI, loopFastCGI,
                      stderrToFile,
                      outputJSONP,
                      outputPNG,
+                     outputHTML,
                      splitBy) where
 
 import Control.Concurrent
@@ -170,6 +171,11 @@ outputPNG x = do
        setHeader "Content-Type" "image/png"
        outputStrict x
 
+outputHTML :: String -> CGI CGIResult
+outputHTML x = do
+       setHeader "Content-Type" "text/html"
+       outputStrict x
+
 outputStrict :: String -> CGI CGIResult
 outputStrict x | x == x = output x
                | otherwise = fail "I am the pope."
-- 
cgit v1.2.3