diff options
Diffstat (limited to 'src/server/FastCGIUtils.hs')
| -rw-r--r-- | src/server/FastCGIUtils.hs | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/src/server/FastCGIUtils.hs b/src/server/FastCGIUtils.hs index 2abc66072..05aa29eac 100644 --- a/src/server/FastCGIUtils.hs +++ b/src/server/FastCGIUtils.hs @@ -3,9 +3,8 @@ module FastCGIUtils (--initFastCGI, loopFastCGI, throwCGIError, handleCGIErrors, stderrToFile,logError, outputJSONP,outputEncodedJSONP, - outputPNG, - outputHTML, - outputPlain, + outputPNG,outputBinary, + outputHTML,outputPlain, splitBy) where import Control.Concurrent @@ -177,14 +176,19 @@ outputPNG x = do setHeader "Content-Type" "image/png" outputFPS x +outputBinary :: BS.ByteString -> CGI CGIResult +outputBinary x = do + setHeader "Content-Type" "application/binary" + outputFPS x + outputHTML :: String -> CGI CGIResult outputHTML x = do - setHeader "Content-Type" "text/html" + setHeader "Content-Type" "text/html; charset=utf-8" outputStrict $ UTF8.encodeString x outputPlain :: String -> CGI CGIResult outputPlain x = do - setHeader "Content-Type" "text/plain" + setHeader "Content-Type" "text/plain; charset=utf-8" outputStrict $ UTF8.encodeString x outputStrict :: String -> CGI CGIResult |