TranslateApp now have browser for abstract syntax

2009-11-29 14:51:12 +00:00
parent abe21f6fbb
commit 836e742ddf
11 changed files with 408 additions and 81 deletions
--- 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."