network-transport-composed 0.2.0.1 → 0.2.1
raw patch · 2 files changed
+6/−6 lines, 2 filesdep ~network-transportnew-uploaderPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: network-transport
API changes (from Hackage documentation)
Files
network-transport-composed.cabal view
@@ -1,11 +1,11 @@ name: network-transport-composed-version: 0.2.0.1+version: 0.2.1 synopsis: Compose network transports homepage: http://haskell-distributed.github.com license: BSD3 license-file: LICENSE author: Edsko de Vries-maintainer: edsko@well-typed.com, watson.timothy@gmail.com+maintainer: Facundo Dominguez <facundo.dominguez@tweag.io> bug-reports: http://github.com/haskell-distributed/network-transport-composed/issues copyright: (c) 2012 Well-Typed LLP category: Network@@ -20,7 +20,7 @@ exposed-modules: Network.Transport.Composed build-depends: base >= 4.3 && < 5, bytestring,- network-transport >= 0.4.0.0 && < 0.5+ network-transport >= 0.4.0.0 && < 0.6 hs-source-dirs: src ghc-options: -Wall extensions: BangPatterns
src/Network/Transport/Composed.hs view
@@ -48,7 +48,7 @@ , ConnectErrorCode , Connection )-import Network.Transport.Internal (encodeInt32, decodeInt32)+import Network.Transport.Internal (encodeEnum32, decodeNum32) data ComposedTransport = ComposedTransport { -- | The left transport@@ -72,7 +72,7 @@ serializeComposedAddress (RightAddress (EndPointAddress addr)) = EndPointAddress $ BSS.concat [BSS.singleton 1, addr] serializeComposedAddress (EitherAddress (EndPointAddress addr1) (EndPointAddress addr2)) =- EndPointAddress $ BSS.concat [BSS.singleton 2, encodeInt32 (BSS.length addr1), addr1, addr2]+ EndPointAddress $ BSS.concat [BSS.singleton 2, encodeEnum32 (BSS.length addr1), addr1, addr2] deserializeComposedAddress :: EndPointAddress -> ComposedAddress deserializeComposedAddress (EndPointAddress addr) =@@ -83,7 +83,7 @@ 0 -> LeftAddress (EndPointAddress remainder) 1 -> RightAddress (EndPointAddress remainder) 2 -> let (len, remainder') = BSS.splitAt 4 remainder- (a, b) = BSS.splitAt (decodeInt32 len) remainder'+ (a, b) = BSS.splitAt (decodeNum32 len) remainder' in EitherAddress (EndPointAddress a) (EndPointAddress b) _ -> error "deserializeComposedAddress"