Misnamed a setting

2022-11-06 12:27:14 +00:00
parent 8a35a9d3f7
commit a25b2a9ecc
4 changed files with 11 additions and 6 deletions
--- a/Raft.Test/TestInMemoryServer.fs
+++ b/Raft.Test/TestInMemoryServer.fs
@@ -389,7 +389,8 @@ module TestInMemoryServer =
    let duplicationProperty<'a when 'a : equality>
        (clusterSize : int)
        (beforeDuplication : ValidHistory<'a>, afterDuplication : ValidHistory<'a>)
-        : bool =
+        : bool
+        =
        let withoutDuplicate =
            let cluster, network = InMemoryCluster.make<'a> clusterSize
            replay beforeDuplication cluster network
@@ -421,7 +422,8 @@ module TestInMemoryServer =
    let allDuplicatedHistories<'a>
        (clusterSize : int)
        (ValidHistory historyList : ValidHistory<'a> as history)
-        : _ list =
+        : _ list
+        =
        let duplicateCandidates = possibleDuplicates historyList

        duplicateCandidates