distributed-process-simplelocalnet 0.3.2 → 0.3.3
raw patch · 3 files changed
+13/−9 lines, 3 filesdep −transformersdep ~containersPVP ok
version bump matches the API change (PVP)
Dependencies removed: transformers
Dependency ranges changed: containers
API changes (from Hackage documentation)
Files
- ChangeLog +4/−0
- distributed-process-simplelocalnet.cabal +3/−3
- tests/Main.hs +6/−6
ChangeLog view
@@ -1,3 +1,7 @@+2025-02-04 Laurent P. René de Cotret <laurent.decotret@outlook.com> 0.3.3++* Removed unused dependencies and addressed some compilation warnings (#467).+ 2024-09-03 Laurent P. René de Cotret <laurent.decotret@outlook.com> 0.3.2 * Bumped dependency bounds to support GHC 8.10.7 - GHC 9.10.1
distributed-process-simplelocalnet.cabal view
@@ -1,6 +1,6 @@ cabal-version: 3.0 Name: distributed-process-simplelocalnet-Version: 0.3.2+Version: 0.3.3 Build-Type: Simple License: BSD-3-Clause License-File: LICENSE@@ -15,7 +15,7 @@ discovery based on UDP multicast. This is a zero-configuration backend designed to get you going with Cloud Haskell quickly without imposing any structure on your application.-tested-with: GHC==8.10.7 GHC==9.0.2 GHC==9.2.8 GHC==9.4.5 GHC==9.6.4 GHC==9.8.2 GHC==9.10.1+tested-with: GHC==8.10.7 GHC==9.0.2 GHC==9.2.8 GHC==9.4.5 GHC==9.6.4 GHC==9.8.2 GHC==9.10.1 GHC==9.12.1 Category: Control extra-doc-files: ChangeLog @@ -33,6 +33,7 @@ -Wredundant-constraints -fhide-source-paths -Wpartial-fields+ -Wunused-packages Library import: warnings@@ -44,7 +45,6 @@ data-accessor >= 0.2 && < 0.3, binary >= 0.8 && < 0.9, containers >= 0.6 && < 0.8,- transformers >= 0.2 && < 0.7, network-transport >= 0.5 && < 0.6, network-transport-tcp >= 0.4 && < 0.9, distributed-process >= 0.5.0 && < 0.8
tests/Main.hs view
@@ -2,17 +2,17 @@ import Control.Concurrent (forkIO, threadDelay) import qualified Control.Concurrent.MVar as MVar-import Control.Distributed.Process (NodeId, Process, liftIO) import Control.Distributed.Process.Node (initRemoteTable) import Control.Distributed.Process.Backend.SimpleLocalnet import Control.Monad (forM_)+import Control.Monad.IO.Class (liftIO) import qualified Data.List as List import Test.Tasty (TestTree, defaultMain, testGroup) import Test.Tasty.HUnit (assertEqual, testCase) main :: IO ()-main = defaultMain - $ testGroup "Test suite" +main = defaultMain+ $ testGroup "Test suite" [ testDiscoverNodes ] @@ -24,7 +24,7 @@ backend <- initializeBackend "127.0.0.1" port initRemoteTable _ <- forkIO $ startSlave backend threadDelay 100000- + -- initialize master node discoveredNodesSlot <- MVar.newEmptyMVar backend <- initializeBackend "127.0.0.1" "10004" initRemoteTable@@ -33,12 +33,12 @@ liftIO $ MVar.putMVar discoveredNodesSlot nds discoveredNodes <- (List.sort . List.nub) <$> MVar.readMVar discoveredNodesSlot- assertEqual "Discovered nodes" + assertEqual "Discovered nodes" [ "nid://127.0.0.1:10000:0" , "nid://127.0.0.1:10001:0" , "nid://127.0.0.1:10002:0" , "nid://127.0.0.1:10003:0"- ] + ] (map show discoveredNodes)