Relax upper bounds in dependencies.

facundominguez · facundominguez · commit 33bf0885fbe2 · 2017-08-22T14:57:50.000-03:00
diff --git a/benchmarks/Channels.hs b/benchmarks/Channels.hs
@@ -36,6 +36,7 @@ initialProcess "CLIENT" = do
 main :: IO ()
 main = do
   [role, host, port] <- getArgs
-  Right transport <- createTransport host port defaultTCPParameters
+  Right transport <- createTransport
+      host port (\sn -> (host, port)) defaultTCPParameters
   node <- newLocalNode transport initRemoteTable
   runProcess node $ initialProcess role
diff --git a/benchmarks/Latency.hs b/benchmarks/Latency.hs
@@ -31,6 +31,7 @@ initialProcess "CLIENT" = do
 main :: IO ()
 main = do
   [role, host, port] <- getArgs
-  Right transport <- createTransport host port defaultTCPParameters
+  Right transport <- createTransport
+      host port (\sn -> (host, sn)) defaultTCPParameters
   node <- newLocalNode transport initRemoteTable
   runProcess node $ initialProcess role
diff --git a/benchmarks/ProcessRing.hs b/benchmarks/ProcessRing.hs
@@ -110,7 +110,8 @@ main = do
   argv <- getArgs
   (opt, _) <- parseArgv argv
   putStrLn $ "options: " ++ (show opt)
-  Right transport <- createTransport "127.0.0.1" "8090" defaultTCPParameters
+  Right transport <- createTransport
+    "127.0.0.1" "8090" (\sn -> ("127.0.0.1", sn)) defaultTCPParameters
   node <- newLocalNode transport initRemoteTable
   catch (void $ runProcess node $ initialProcess opt)
         (\(e :: SomeException) -> putStrLn $ "ERROR: " ++ (show e))
diff --git a/benchmarks/Spawns.hs b/benchmarks/Spawns.hs
@@ -42,6 +42,7 @@ initialProcess "CLIENT" = do
 main :: IO ()
 main = do
   [role, host, port] <- getArgs
-  Right transport <- createTransport host port defaultTCPParameters
+  Right transport <- createTransport
+    host port (\sn -> (host, sn)) defaultTCPParameters
   node <- newLocalNode transport initRemoteTable
   runProcess node $ initialProcess role
diff --git a/benchmarks/Throughput.hs b/benchmarks/Throughput.hs
@@ -67,6 +67,7 @@ initialProcess "CLIENT" = do
 main :: IO ()
 main = do
   [role, host, port] <- getArgs
-  Right transport <- createTransport host port defaultTCPParameters
+  Right transport <- createTransport
+      host port (\sn -> (host, sn)) defaultTCPParameters
   node <- newLocalNode transport initRemoteTable
   runProcess node $ initialProcess role
diff --git a/distributed-process.cabal b/distributed-process.cabal
@@ -52,7 +52,7 @@ Library
                      bytestring >= 0.9 && < 0.11,
                      random >= 1.0 && < 1.2,
                      distributed-static >= 0.2 && < 0.4,
-                     rank1dynamic >= 0.1 && < 0.4,
+                     rank1dynamic >= 0.1 && < 0.5,
                      syb >= 0.3 && < 0.8,
                      exceptions >= 0.5,
                      containers >= 0.5 && < 0.6,
@@ -121,7 +121,7 @@ benchmark distributed-process-throughput
   Type:            exitcode-stdio-1.0
   Build-Depends:   base >= 4.6 && < 5,
                    distributed-process,
-                   network-transport-tcp >= 0.3 && < 0.6,
+                   network-transport-tcp >= 0.3 && < 0.7,
                    bytestring >= 0.9 && < 0.11,
                    binary >= 0.6.3 && < 0.9
   Main-Is:         benchmarks/Throughput.hs
@@ -131,7 +131,7 @@ benchmark distributed-process-latency
   Type:            exitcode-stdio-1.0
   Build-Depends:   base >= 4.6 && < 5,
                    distributed-process,
-                   network-transport-tcp >= 0.3 && < 0.6,
+                   network-transport-tcp >= 0.3 && < 0.7,
                    bytestring >= 0.9 && < 0.11,
                    binary >= 0.6.3 && < 0.9
   Main-Is:         benchmarks/Latency.hs
@@ -141,7 +141,7 @@ benchmark distributed-process-channels
   Type:            exitcode-stdio-1.0
   Build-Depends:   base >= 4.6 && < 5,
                    distributed-process,
-                   network-transport-tcp >= 0.3 && < 0.6,
+                   network-transport-tcp >= 0.3 && < 0.7,
                    bytestring >= 0.9 && < 0.11,
                    binary >= 0.6.3 && < 0.9
   Main-Is:         benchmarks/Channels.hs
@@ -151,7 +151,7 @@ benchmark distributed-process-spawns
   Type:            exitcode-stdio-1.0
   Build-Depends:   base >= 4.6 && < 5,
                    distributed-process,
-                   network-transport-tcp >= 0.3 && < 0.6,
+                   network-transport-tcp >= 0.3 && < 0.7,
                    bytestring >= 0.9 && < 0.11,
                    binary >= 0.6.3 && < 0.9
   Main-Is:         benchmarks/Spawns.hs
@@ -161,7 +161,7 @@ benchmark distributed-process-ring
   Type:            exitcode-stdio-1.0
   Build-Depends:   base >= 4.6 && < 5,
                    distributed-process,
-                   network-transport-tcp >= 0.3 && < 0.6,
+                   network-transport-tcp >= 0.3 && < 0.7,
                    bytestring >= 0.9 && < 0.11,
                    binary >= 0.6.3 && < 0.9
   Main-Is:         benchmarks/ProcessRing.hs
