TranslateApp now have browser for abstract syntax

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