distributed-process-lifted 0.3.0.0 → 0.3.0.1

raw patch · 4 files changed

+10/−5 lines, 4 filesdep ~network-transport-tcpPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: network-transport-tcp

API changes (from Hackage documentation)

Files

• distributed-process-lifted.cabal +2/−2
• src/Control/Distributed/Process/Lifted.hs +1/−0
• test/Control/Distributed/Process/Lifted/Tests.hs +1/−0
• test/runTCP.hs +6/−3

@@ -2,7 +2,7 @@ -- further documentation, see http://haskell.org/cabal/users-guide/  name:                distributed-process-lifted-version:             0.3.0.0+version:             0.3.0.1 synopsis:            monad-control style typeclass and transformer instances for Process monad.  description:         This package provides typeclasses and functions for lifting functions and control operations (such as spawnLocal) from the @Process@ monad @@ -67,7 +67,7 @@                      binary,                       network-transport,                       lifted-base,-                     network-transport-tcp,+                     network-transport-tcp >= 0.6 && < 0.7,                      test-framework >= 0.6 && < 0.9,                      test-framework-hunit >= 0.3 && < 0.4,                      rematch >= 0.2 && < 0.3,

@@ -1,4 +1,5 @@ {-# LANGUAGE FlexibleContexts    #-}+{-# LANGUAGE MonoLocalBinds      #-} {-# LANGUAGE RankNTypes          #-} {-# LANGUAGE ScopedTypeVariables #-} 

@@ -1,4 +1,5 @@ {-# LANGUAGE CPP #-}+{-# LANGUAGE MonoLocalBinds      #-} module Control.Distributed.Process.Lifted.Tests (tests) where  #if ! MIN_VERSION_base(4,6,0)

@@ -5,7 +5,7 @@ import Control.Distributed.Process.Lifted.Tests (tests)  import Network.Transport.Test (TestTransport(..))-import Network.Socket (sClose)+import Network.Socket (close) import Network.Transport.TCP   ( createTransportExposeInternals   , TransportInternals(socketBetween)@@ -19,12 +19,15 @@ main :: IO () main = do     Right (transport, internals) <--      createTransportExposeInternals "127.0.0.1" "8080" defaultTCPParameters+      createTransportExposeInternals "127.0.0.1"+                                     "8080"+                                     (\s -> ("127.0.0.1", s))+                                     defaultTCPParameters     ts <- tests TestTransport       { testTransport = transport       , testBreakConnection = \addr1 addr2 -> do           sock <- socketBetween internals addr1 addr2-          sClose sock+          close sock           threadDelay 10000       }     args <- getArgs