cgi 3001.1.8.1 → 3001.1.8.2

raw patch · 3 files changed

+5/−4 lines, 3 filesdep ~basePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: base

API changes (from Hackage documentation)

- Network.CGI.Monad: instance (Functor m) => Functor (CGIT m)

- Network.CGI.Monad: instance (Monad m) => Monad (CGIT m)

- Network.CGI.Monad: instance (Monad m) => MonadCGI (CGIT m)

- Network.CGI.Monad: instance (MonadCatchIO m) => MonadCatchIO (CGIT m)

- Network.CGI.Monad: instance (MonadCatchIO m) => MonadError SomeException (CGIT m)

- Network.CGI.Monad: instance (MonadIO m) => MonadIO (CGIT m)

+ Network.CGI.Monad: instance (Functor m, Monad m) => Functor (CGIT m)

+ Network.CGI.Monad: instance Monad m => Monad (CGIT m)

+ Network.CGI.Monad: instance Monad m => MonadCGI (CGIT m)

+ Network.CGI.Monad: instance MonadCatchIO m => MonadCatchIO (CGIT m)

+ Network.CGI.Monad: instance MonadCatchIO m => MonadError SomeException (CGIT m)

+ Network.CGI.Monad: instance MonadIO m => MonadIO (CGIT m)

- Network.CGI: authType :: (MonadCGI m) => m (Maybe String)

+ Network.CGI: authType :: MonadCGI m => m (Maybe String)

- Network.CGI: class (Eq a) => Acceptable a

+ Network.CGI: class Eq a => Acceptable a

- Network.CGI: class (Monad m) => MonadCGI m

+ Network.CGI: class Monad m => MonadCGI m

- Network.CGI: class (Monad m) => MonadIO m :: (* -> *)

+ Network.CGI: class Monad m => MonadIO (m :: * -> *)

- Network.CGI: deleteCookie :: (MonadCGI m) => Cookie -> m ()

+ Network.CGI: deleteCookie :: MonadCGI m => Cookie -> m ()

- Network.CGI: getBody :: (MonadCGI m) => m String

+ Network.CGI: getBody :: MonadCGI m => m String

- Network.CGI: getBodyFPS :: (MonadCGI m) => m ByteString

+ Network.CGI: getBodyFPS :: MonadCGI m => m ByteString

- Network.CGI: getCookie :: (MonadCGI m) => String -> m (Maybe String)

+ Network.CGI: getCookie :: MonadCGI m => String -> m (Maybe String)

- Network.CGI: getInput :: (MonadCGI m) => String -> m (Maybe String)

+ Network.CGI: getInput :: MonadCGI m => String -> m (Maybe String)

- Network.CGI: getInputContentType :: (MonadCGI m) => String -> m (Maybe String)

+ Network.CGI: getInputContentType :: MonadCGI m => String -> m (Maybe String)

- Network.CGI: getInputFPS :: (MonadCGI m) => String -> m (Maybe ByteString)

+ Network.CGI: getInputFPS :: MonadCGI m => String -> m (Maybe ByteString)

- Network.CGI: getInputFilename :: (MonadCGI m) => String -> m (Maybe String)

+ Network.CGI: getInputFilename :: MonadCGI m => String -> m (Maybe String)

- Network.CGI: getInputNames :: (MonadCGI m) => m [String]

+ Network.CGI: getInputNames :: MonadCGI m => m [String]

- Network.CGI: getInputs :: (MonadCGI m) => m [(String, String)]

+ Network.CGI: getInputs :: MonadCGI m => m [(String, String)]

- Network.CGI: getInputsFPS :: (MonadCGI m) => m [(String, ByteString)]

+ Network.CGI: getInputsFPS :: MonadCGI m => m [(String, ByteString)]

- Network.CGI: getMultiInput :: (MonadCGI m) => String -> m [String]

+ Network.CGI: getMultiInput :: MonadCGI m => String -> m [String]

- Network.CGI: getMultiInputFPS :: (MonadCGI m) => String -> m [ByteString]

+ Network.CGI: getMultiInputFPS :: MonadCGI m => String -> m [ByteString]

- Network.CGI: getVar :: (MonadCGI m) => String -> m (Maybe String)

+ Network.CGI: getVar :: MonadCGI m => String -> m (Maybe String)

- Network.CGI: getVarWithDefault :: (MonadCGI m) => String -> String -> m String

+ Network.CGI: getVarWithDefault :: MonadCGI m => String -> String -> m String

- Network.CGI: getVars :: (MonadCGI m) => m [(String, String)]

+ Network.CGI: getVars :: MonadCGI m => m [(String, String)]

- Network.CGI: liftIO :: (MonadIO m) => forall a. IO a -> m a

+ Network.CGI: liftIO :: MonadIO m => forall a. IO a -> m a

- Network.CGI: logCGI :: (MonadIO m) => String -> m ()

+ Network.CGI: logCGI :: MonadIO m => String -> m ()

- Network.CGI: negotiate :: (Acceptable a) => [a] -> Maybe (Accept a) -> [a]

+ Network.CGI: negotiate :: Acceptable a => [a] -> Maybe (Accept a) -> [a]

- Network.CGI: output :: (MonadCGI m) => String -> m CGIResult

+ Network.CGI: output :: MonadCGI m => String -> m CGIResult

- Network.CGI: outputFPS :: (MonadCGI m) => ByteString -> m CGIResult

+ Network.CGI: outputFPS :: MonadCGI m => ByteString -> m CGIResult

- Network.CGI: outputNothing :: (MonadCGI m) => m CGIResult

+ Network.CGI: outputNothing :: MonadCGI m => m CGIResult

- Network.CGI: parseContentType :: (Monad m) => String -> m ContentType

+ Network.CGI: parseContentType :: Monad m => String -> m ContentType

- Network.CGI: pathInfo :: (MonadCGI m) => m String

+ Network.CGI: pathInfo :: MonadCGI m => m String

- Network.CGI: pathTranslated :: (MonadCGI m) => m String

+ Network.CGI: pathTranslated :: MonadCGI m => m String

- Network.CGI: progURI :: (MonadCGI m) => m URI

+ Network.CGI: progURI :: MonadCGI m => m URI

- Network.CGI: queryString :: (MonadCGI m) => m String

+ Network.CGI: queryString :: MonadCGI m => m String

- Network.CGI: queryURI :: (MonadCGI m) => m URI

+ Network.CGI: queryURI :: MonadCGI m => m URI

- Network.CGI: redirect :: (MonadCGI m) => String -> m CGIResult

+ Network.CGI: redirect :: MonadCGI m => String -> m CGIResult

- Network.CGI: remoteAddr :: (MonadCGI m) => m String

+ Network.CGI: remoteAddr :: MonadCGI m => m String

- Network.CGI: remoteHost :: (MonadCGI m) => m (Maybe String)

+ Network.CGI: remoteHost :: MonadCGI m => m (Maybe String)

- Network.CGI: remoteUser :: (MonadCGI m) => m (Maybe String)

+ Network.CGI: remoteUser :: MonadCGI m => m (Maybe String)

- Network.CGI: requestAccept :: (MonadCGI m) => m (Maybe (Accept ContentType))

+ Network.CGI: requestAccept :: MonadCGI m => m (Maybe (Accept ContentType))

- Network.CGI: requestAcceptCharset :: (MonadCGI m) => m (Maybe (Accept Charset))

+ Network.CGI: requestAcceptCharset :: MonadCGI m => m (Maybe (Accept Charset))

- Network.CGI: requestAcceptEncoding :: (MonadCGI m) => m (Maybe (Accept ContentEncoding))

+ Network.CGI: requestAcceptEncoding :: MonadCGI m => m (Maybe (Accept ContentEncoding))

- Network.CGI: requestAcceptLanguage :: (MonadCGI m) => m (Maybe (Accept Language))

+ Network.CGI: requestAcceptLanguage :: MonadCGI m => m (Maybe (Accept Language))

- Network.CGI: requestContentLength :: (MonadCGI m) => m (Maybe Int)

+ Network.CGI: requestContentLength :: MonadCGI m => m (Maybe Int)

- Network.CGI: requestContentType :: (MonadCGI m) => m (Maybe String)

+ Network.CGI: requestContentType :: MonadCGI m => m (Maybe String)

- Network.CGI: requestHeader :: (MonadCGI m) => String -> m (Maybe String)

+ Network.CGI: requestHeader :: MonadCGI m => String -> m (Maybe String)

- Network.CGI: requestMethod :: (MonadCGI m) => m String

+ Network.CGI: requestMethod :: MonadCGI m => m String

- Network.CGI: requestURI :: (MonadCGI m) => m URI

+ Network.CGI: requestURI :: MonadCGI m => m URI

- Network.CGI: runCGI :: (MonadIO m) => CGIT m CGIResult -> m ()

+ Network.CGI: runCGI :: MonadIO m => CGIT m CGIResult -> m ()

- Network.CGI: scriptName :: (MonadCGI m) => m String

+ Network.CGI: scriptName :: MonadCGI m => m String

- Network.CGI: serverName :: (MonadCGI m) => m String

+ Network.CGI: serverName :: MonadCGI m => m String

- Network.CGI: serverPort :: (MonadCGI m) => m Int

+ Network.CGI: serverPort :: MonadCGI m => m Int

- Network.CGI: setCookie :: (MonadCGI m) => Cookie -> m ()

+ Network.CGI: setCookie :: MonadCGI m => Cookie -> m ()

- Network.CGI: setHeader :: (MonadCGI m) => String -> String -> m ()

+ Network.CGI: setHeader :: MonadCGI m => String -> String -> m ()

- Network.CGI: setStatus :: (MonadCGI m) => Int -> String -> m ()

+ Network.CGI: setStatus :: MonadCGI m => Int -> String -> m ()

- Network.CGI.Monad: cgiAddHeader :: (MonadCGI m) => HeaderName -> String -> m ()

+ Network.CGI.Monad: cgiAddHeader :: MonadCGI m => HeaderName -> String -> m ()

- Network.CGI.Monad: cgiGet :: (MonadCGI m) => (CGIRequest -> a) -> m a

+ Network.CGI.Monad: cgiGet :: MonadCGI m => (CGIRequest -> a) -> m a

- Network.CGI.Monad: class (Monad m) => MonadCGI m

+ Network.CGI.Monad: class Monad m => MonadCGI m

- Network.CGI.Monad: runCGIT :: (Monad m) => CGIT m a -> CGIRequest -> m (Headers, a)

+ Network.CGI.Monad: runCGIT :: Monad m => CGIT m a -> CGIRequest -> m (Headers, a)

- Network.CGI.Protocol: getCGIVars :: (MonadIO m) => m [(String, String)]

+ Network.CGI.Protocol: getCGIVars :: MonadIO m => m [(String, String)]

- Network.CGI.Protocol: hRunCGI :: (MonadIO m) => [(String, String)] -> Handle -> Handle -> (CGIRequest -> m (Headers, CGIResult)) -> m ()

+ Network.CGI.Protocol: hRunCGI :: MonadIO m => [(String, String)] -> Handle -> Handle -> (CGIRequest -> m (Headers, CGIResult)) -> m ()

- Network.CGI.Protocol: logCGI :: (MonadIO m) => String -> m ()

+ Network.CGI.Protocol: logCGI :: MonadIO m => String -> m ()

- Network.CGI.Protocol: maybeRead :: (Read a) => String -> Maybe a

+ Network.CGI.Protocol: maybeRead :: Read a => String -> Maybe a

- Network.CGI.Protocol: replace :: (Eq a) => a -> a -> [a] -> [a]

+ Network.CGI.Protocol: replace :: Eq a => a -> a -> [a] -> [a]

- Network.CGI.Protocol: runCGIEnvFPS :: (Monad m) => [(String, String)] -> ByteString -> (CGIRequest -> m (Headers, CGIResult)) -> m ByteString

+ Network.CGI.Protocol: runCGIEnvFPS :: Monad m => [(String, String)] -> ByteString -> (CGIRequest -> m (Headers, CGIResult)) -> m ByteString

Files

Network/CGI/Monad.hs +1/−1
Network/CGI/Protocol.hs +3/−2
cgi.cabal +1/−1

Network/CGI/Monad.hs view

@@ -55,7 +55,7 @@     typeOf _ = mkTyConApp (mkTyCon "Network.CGI.Monad.CGIT")                  [typeOf1 (undefined :: m a), typeOf (undefined :: a)] -instance Monad m => Functor (CGIT m) where+instance (Functor m, Monad m) => Functor (CGIT m) where     fmap f c = CGIT (fmap f (unCGIT c))  instance Monad m => Monad (CGIT m) where

Network/CGI/Protocol.hs view

@@ -39,7 +39,7 @@ import Data.Maybe (fromMaybe, listToMaybe, isJust) import Network.URI (unEscapeString,escapeURIString,isUnescapedInURI) import System.Environment (getEnvironment)-import System.IO (Handle, hPutStrLn, stderr, hFlush)+import System.IO (Handle, hPutStrLn, stderr, hFlush, hSetBinaryMode)  import qualified Data.ByteString.Lazy.Char8 as BS import Data.ByteString.Lazy.Char8 (ByteString)@@ -104,7 +104,8 @@         -> (CGIRequest -> m (Headers, CGIResult)) -- ^ CGI action         -> m () hRunCGI env hin hout f = -    do inp <- liftIO $ BS.hGetContents hin+    do liftIO $ hSetBinaryMode hin True+       inp <- liftIO $ BS.hGetContents hin        outp <- runCGIEnvFPS env inp f        liftIO $ BS.hPut hout outp        liftIO $ hFlush hout

cgi.cabal view

@@ -1,5 +1,5 @@ Name: cgi-Version: 3001.1.8.1+Version: 3001.1.8.2 Copyright: Bjorn Bringert, Andy Gill, Anders Kaseorg, Ian Lynagh,             Erik Meijer, Sven Panne, Jeremy Shaw Category: Network