dahdit-network 0.5.0 → 0.5.1
raw patch · 2 files changed
+19/−6 lines, 2 filesdep ~resourcetPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: resourcet
API changes (from Hackage documentation)
Files
- dahdit-network.cabal +4/−4
- src/Dahdit/Network.hs +15/−2
dahdit-network.cabal view
@@ -1,11 +1,11 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.35.2.+-- This file has been generated from package.yaml by hpack version 0.36.0. -- -- see: https://github.com/sol/hpack name: dahdit-network-version: 0.5.0+version: 0.5.1 synopsis: Network protocol helpers for Dahdit description: Please see the README on GitHub at <https://github.com/ejconlon/dahdit-network#readme> homepage: https://github.com/ejconlon/dahdit-network#readme@@ -62,7 +62,7 @@ , bytestring ==0.11.* , dahdit ==0.5.* , network ==3.1.*- , resourcet ==1.2.*+ , resourcet >=1.2 && <1.4 , unliftio-core ==0.2.* default-language: GHC2021 @@ -106,7 +106,7 @@ , dahdit ==0.5.* , dahdit-network , network ==3.1.*- , resourcet ==1.2.*+ , resourcet >=1.2 && <1.4 , stm ==2.5.* , tasty ==1.4.* , tasty-hunit ==0.10.*
src/Dahdit/Network.hs view
@@ -20,7 +20,19 @@ import Control.Monad (unless, (>=>)) import Control.Monad.IO.Class (liftIO) import Control.Monad.IO.Unlift (MonadUnliftIO)-import Dahdit (Binary (..), ByteCount (..), Get, GetError, GetIncCb, GetIncRequest (..), Put, getEnd, getTarget, getTargetInc, putTarget)+import Dahdit+ ( Binary (..)+ , ByteCount (..)+ , Get+ , GetError+ , GetIncCb+ , GetIncRequest (..)+ , Put+ , getEnd+ , getTarget+ , getTargetInc+ , putTarget+ ) import Data.Acquire (Acquire, mkAcquire, withAcquire) import Data.ByteString (ByteString) import Data.ByteString qualified as BS@@ -180,7 +192,8 @@ let enc = streamEncoder sock pure (addr, Conn dec enc) -withTcpClientConn :: (MonadUnliftIO m) => Maybe ByteCount -> HostPort -> TcpOpts -> (NS.SockAddr -> Conn () -> m a) -> m a+withTcpClientConn+ :: (MonadUnliftIO m) => Maybe ByteCount -> HostPort -> TcpOpts -> (NS.SockAddr -> Conn () -> m a) -> m a withTcpClientConn mayLim hp to = withAcquire (tcpClientConn mayLim hp to) . uncurry tcpServerSock :: HostPort -> Acquire NS.Socket