0b0ddb8 · distributed-process

git.iko.soy/distributed-process

Use a BS.copy in Binary instance for addresses

to avoid addresses hanging on to much larger chunks of bytestrings returned by the specific network implementation

commit0b0ddb8195fd738ab5550b4e02c6ae2a09100dd8 authorEdsko de Vries <edsko@edsko.net> dateFri 24 Aug 2012, 15:48 (14 years ago) parentb1d2a76

1 file changed+8−2

unifiedsplit

network-transport/src/Network/Transport.hs+8−2

@@ -23,10 +23,12 @@ module Network.Transport ( -- * Types

2323 ) where

2424

2525import Data.ByteString (ByteString)

26+import qualified Data.ByteString as BS (copy)

2627import qualified Data.ByteString.Char8 as BSC (unpack)

2728import Control.Exception (Exception)

29+import Control.Applicative ((<$>))

2830import Data.Typeable (Typeable)

29−import Data.Binary (Binary)

31+import Data.Binary (Binary(get, put))

3032

3133--------------------------------------------------------------------------------

3234-- Main API --

@@ -116,7 +118,11 @@ data MulticastGroup = MulticastGroup {

116118

117119-- | EndPointAddress of an endpoint.

118120newtype EndPointAddress = EndPointAddress { endPointAddressToByteString :: ByteString }

119− deriving (Eq, Ord, Typeable, Binary)

121+ deriving (Eq, Ord, Typeable)

122+

123+instance Binary EndPointAddress where

124+ put = put . endPointAddressToByteString

125+ get = EndPointAddress . BS.copy <$> get

120126

121127instance Show EndPointAddress where

122128 show = BSC.unpack . endPointAddressToByteString