Added note about voting rules to random-fork.

input-output-hk · Feb 8, 2024 · e529d37 · e529d37
1 parent 1f4762b
commit e529d37
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/random-forks/src/Peras/RandomForks/Peer.hs b/random-forks/src/Peras/RandomForks/Peer.hs
@@ -91,7 +91,7 @@ nextSlot gen protocol@Protocol{roundDuration, votingWindow} slot name state@Peer
           vrfOutput = vrfOutput'
         , slotLeader = slotLeader'
         , committeeMember = committeeMember'
-        , preferredChain = if committeeMember' && slot `mod` roundDuration == 0
+        , preferredChain = if committeeMember' && slot `mod` roundDuration == 0  -- FIXME: Not faithful to the Peras voting rules.
                              then recordVote (slot `div` roundDuration) name (slot - snd votingWindow, slot - fst votingWindow) preferredChain''
                              else preferredChain''
         , danglingVotes = danglingVotes'