http-pony 0.1.0.5 → 0.1.0.6

raw patch · 2 files changed

+4/−4 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Network.HTTP.Pony.Helper: (-) :: (t -> t1) -> t -> t1

+ Network.HTTP.Pony.Helper: (-) :: (t1 -> t) -> t1 -> t

- Network.HTTP.Pony.Serve: serveWithSocket :: (MonadIO m, MonadCatch m) => (Socket, SockAddr) -> (Producer ByteString m () -> m (Producer ByteString m ())) -> m ()

+ Network.HTTP.Pony.Serve: serveWithSocket :: (MonadSafe m, MonadCatch m) => (Socket, SockAddr) -> (Producer ByteString m () -> m (Producer ByteString m ())) -> m ()

http-pony.cabal view

@@ -1,5 +1,5 @@ name:                http-pony-version:             0.1.0.5+version:             0.1.0.6 synopsis:            A type unsafe http library license:             BSD3 license-file:        LICENSE

src/Network/HTTP/Pony/Serve.hs view

@@ -16,14 +16,14 @@ import           Pipes.Network.TCP.Safe (fromSocket, toSocket, connect, connectSock                                         , closeSock) import qualified Pipes.Network.TCP.Safe as PipesNetwork-import           Pipes.Safe (MonadSafe(), runSafeT, SafeT, try, catch, throwM)+import           Pipes.Safe (MonadSafe(), runSafeT, SafeT, tryP, throwM)  import           Network.HTTP.Pony.Helper ((-), shutdownSend, shutdownReceive) import           Network.HTTP.Pony.ServeSafe (serveWithPipe) import           Prelude hiding ((-), log)  -serveWithSocket :: (MonadIO m, MonadCatch m)  => (NS.Socket, NS.SockAddr)+serveWithSocket :: (MonadSafe m, MonadCatch m)  => (NS.Socket, NS.SockAddr)                                 -> (Producer ByteString m () -> m (Producer ByteString m ()))                                 -> m () serveWithSocket (s,_) =@@ -45,7 +45,7 @@           --       pure ()            let cont = () <$ await-          r <- try (shutdownSend s)+          r <- tryP (shutdownSend s)           case r of             Right _ -> cont             Left e -> do