wai-frontend-monadcgi 2.0.0.2 → 3.0.0
raw patch · 2 files changed
+5/−9 lines, 2 filesdep −conduitdep −conduit-extradep ~wai
Dependencies removed: conduit, conduit-extra
Dependency ranges changed: wai
Files
Network/Wai/Frontend/MonadCGI.hs view
@@ -10,8 +10,6 @@ import Control.Monad.IO.Class (liftIO) import Data.CaseInsensitive (original) -import Data.Conduit.Lazy (lazyConsume)- import qualified Data.Map as Map import qualified Data.ByteString.Lazy as BS import qualified Data.ByteString.Char8 as S8@@ -32,8 +30,8 @@ => (m (Headers, CGIResult) -> IO (Headers, CGIResult)) -> CGIT m CGIResult -> Application-cgiToAppGeneric toIO cgi env = do- input <- fmap BS.fromChunks $ lazyConsume $ requestBody env+cgiToAppGeneric toIO cgi env sendResponse = do+ input <- lazyRequestBody env let vars = map (first fixVarName . go) (requestHeaders env) ++ getCgiVars env (inputs, body') = decodeInput vars input@@ -51,7 +49,7 @@ let status' = case lookup (fromString "Status") headers' of Nothing -> 200 Just s -> safeRead 200 $ S8.unpack s- return $ responseLBS (Status status' S8.empty) headers' output+ sendResponse $ responseLBS (Status status' S8.empty) headers' output where go (x, y) = (S8.unpack $ original x, S8.unpack y)
wai-frontend-monadcgi.cabal view
@@ -1,5 +1,5 @@ name: wai-frontend-monadcgi-version: 2.0.0.2+version: 3.0.0 license: MIT license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>@@ -16,12 +16,10 @@ , bytestring , containers >= 0.2 , cgi- , conduit >= 0.5 && < 1.2- , conduit-extra , http-types , transformers , case-insensitive- , wai >= 2.0 && < 2.2+ , wai >= 3.0 && < 3.1 exposed-modules: Network.Wai.Frontend.MonadCGI ghc-options: -Wall