hack-frontend-monadcgi 0.0.2 → 0.0.3
raw patch · 2 files changed
+11/−4 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Hack.Frontend.MonadCGI: cgiToAppGeneric :: Monad m => (m (Headers, CGIResult) -> IO (Headers, CGIResult)) -> CGIT m CGIResult -> Application
Files
Hack/Frontend/MonadCGI.hs view
@@ -1,5 +1,6 @@ module Hack.Frontend.MonadCGI ( cgiToApp+ , cgiToAppGeneric ) where import Hack@@ -18,16 +19,22 @@ _ -> d cgiToApp :: CGI CGIResult -> Application-cgiToApp cgi env = do+cgiToApp = cgiToAppGeneric id++cgiToAppGeneric :: Monad m+ => (m (Headers, CGIResult) -> IO (Headers, CGIResult))+ -> CGIT m CGIResult+ -> Application+cgiToAppGeneric toIO cgi env = do let vars = map (first fixVarName) (http env)++ getCgiVars env input = hackInput env (inputs, body') = decodeInput vars input req = CGIRequest { cgiVars = Map.fromList $ vars- , cgiInputs = inputs+ , cgiInputs = inputs , cgiRequestBody = body' }- (headers'', output') <- runCGIT cgi req+ (headers'', output') <- toIO $ runCGIT cgi req let output = case output' of CGIOutput bs -> bs CGINothing -> BS.empty
hack-frontend-monadcgi.cabal view
@@ -1,5 +1,5 @@ name: hack-frontend-monadcgi-version: 0.0.2+version: 0.0.3 license: BSD3 license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>