Modernise

2025-09-08 23:52:47 +01:00
parent 1046be36a3
commit 590e123573
10 changed files with 47 additions and 31 deletions
--- a/Raft.Test/NetworkAction.fs
+++ b/Raft.Test/NetworkAction.fs
@@ -1,6 +1,7 @@
 namespace Raft.Test

 open FsCheck
+open FsCheck.FSharp
 open Raft

 [<RequireQualifiedAccess>]
@@ -8,7 +9,7 @@ module NetworkAction =

    let generate<'a> (clusterSize : int) : Gen<NetworkAction<'a>> =
        gen {
-            let! choice = Arb.generate<NetworkAction<'a>>
+            let! choice = ArbMap.defaults |> ArbMap.generate<NetworkAction<'a>>
            let! server = Gen.choose (0, clusterSize - 1)
            let server = server * 1<ServerId>