diff options
Diffstat (limited to 'src/server/MainFastCGI.hs')
| -rw-r--r-- | src/server/MainFastCGI.hs | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/src/server/MainFastCGI.hs b/src/server/MainFastCGI.hs index 9734ab2f3..84fd3108e 100644 --- a/src/server/MainFastCGI.hs +++ b/src/server/MainFastCGI.hs @@ -154,26 +154,3 @@ selectLanguage pgf macc = case acceptable of langCodeLanguage :: PGF -> String -> Maybe PGF.Language langCodeLanguage pgf code = listToMaybe [l | l <- PGF.languages pgf, PGF.languageCode pgf l == Just code] - --- * General CGI and JSON stuff - -outputJSONP :: JSON a => a -> CGI CGIResult -outputJSONP x = - do mc <- getInput "jsonp" - let str = case mc of - Nothing -> encode x - Just c -> c ++ "(" ++ encode x ++ ")" - setHeader "Content-Type" "text/json; charset=utf-8" - outputStrict $ UTF8.encodeString str - -outputStrict :: String -> CGI CGIResult -outputStrict x | x == x = output x - | otherwise = fail "I am the pope." - --- * General utilities - -splitBy :: (a -> Bool) -> [a] -> [[a]] -splitBy _ [] = [[]] -splitBy f list = case break f list of - (first,[]) -> [first] - (first,_:rest) -> first : splitBy f rest
\ No newline at end of file |