TranslateApp now have browser for abstract syntax

1 files changed, 6 insertions, 0 deletions

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."