From 31a2caaf79aae7dba5ea1c4e0b2b8838a61641ce Mon Sep 17 00:00:00 2001
From: Josef Widder <josef@informal.systems>
Date: Tue, 12 Dec 2023 12:56:24 +0100
Subject: [PATCH] seems to fix changes to sum types

---
 Specs/Quint/TendermintDSL.qnt   |  4 ++--
 Specs/Quint/disagreementRun.qnt |  3 ---
 Specs/Quint/driver.qnt          | 20 +++++++++++---------
 3 files changed, 13 insertions(+), 14 deletions(-)

diff --git a/Specs/Quint/TendermintDSL.qnt b/Specs/Quint/TendermintDSL.qnt
index 3c231a228..d2489d36b 100644
--- a/Specs/Quint/TendermintDSL.qnt
+++ b/Specs/Quint/TendermintDSL.qnt
@@ -18,8 +18,8 @@ run ListTakeAStep (active) = {
     active.length().reps(i => valStep(active[i]))
 }
 
-run ListDeliverProposal (active, proposalMsg) = {
-    active.length().reps(i => deliverProposal(active[i], proposalMsg))
+run ListDeliverProposal (active, propMsg) = {
+    active.length().reps(i => deliverProposal(active[i], propMsg))
 }
 
 run ListDeliverSomeProposal (active) = {
diff --git a/Specs/Quint/disagreementRun.qnt b/Specs/Quint/disagreementRun.qnt
index 7748a796f..995376b37 100644
--- a/Specs/Quint/disagreementRun.qnt
+++ b/Specs/Quint/disagreementRun.qnt
@@ -40,6 +40,3 @@ run DisagreementRun = {
 }
 
 }
-
-
-}
\ No newline at end of file
diff --git a/Specs/Quint/driver.qnt b/Specs/Quint/driver.qnt
index 57a8e9849..187f3cbcc 100644
--- a/Specs/Quint/driver.qnt
+++ b/Specs/Quint/driver.qnt
@@ -274,7 +274,7 @@ pure def prevote(es: DriverState, input: DriverInput, vkOutput: VoteKeeperOutput
     }
 
 // We do this if a timeout expires at the driver
-pure def timeout(es: DriverState, input: DriverInput): (DriverState, ConsensusOutput) =
+pure def timeout(es: DriverState, input: DriverInput): (DriverState, ConsensusOutput) = {
     // TODO: We assume that the timeout event is always for the current round. If this is not
     // the case, we need to encode it in the input to which round the timeout belongs
     val csInput: ConsensusInput = {name: input.timeout, 
@@ -284,11 +284,13 @@ pure def timeout(es: DriverState, input: DriverInput): (DriverState, ConsensusOu
                         vr: 0}
     callConsensus(es, es.bk, csInput)
 }
-      // TODO: change result type of proposal (an other similar functions to this so that consensus can be called at one point in the driver
-type MuxResult = {es: DriverState, ci: ConsensusInput}
+
+// TODO: change result type of proposal (an other similar functions to this so that consensus can be called at one point in the driver
+// type MuxResult = {es: DriverState, ci: ConsensusInput}
+
 
 // We do this if the driver receives a proposal
-pure def proposal (es: DriverState, input: DriverInput) : (DriverState, ConsensusOutput) = {
+pure def proposalMsg(es: DriverState, input: DriverInput) : (DriverState, ConsensusOutput) = {
 // TODO: result should be 
 
     val newES = { ...es, proposals: es.proposals.union(Set(input.proposal))}
@@ -422,7 +424,7 @@ pure def recordStepChange (old: DriverState, new: DriverState) : DriverState = {
 pure def StepChange (es: DriverState) : (DriverState, ConsensusOutput) = {
     // TODO: First add to pending precommitany if it exists
     val newES = 
-        if (checkThreshold(es.bk, es.cs.round, "Precommit", anyThreshold)) 
+        if (checkThreshold(es.bk, es.cs.round, Precommit, AnyThreshold)) 
             val pend = (    {   name: "PrecommitAny",
                                 height: es.cs.height,
                                 round: es.cs.round,
@@ -441,18 +443,18 @@ pure def StepChange (es: DriverState) : (DriverState, ConsensusOutput) = {
                     // TODO:    If the proposer is faulty there might be multiple
                     //          figure out what to do
         val input = { ...defaultInput, name: "proposal", proposal: proposal}
-        ProposalMsg(newES, input) 
+        proposalMsg(newES, input) 
 
     // then go into step distinction but only consider rules without proposals
     else if (es.pendingStepChange == "Prevote")
         // If we have PolkaNil we don't start the timeout
-        if (checkThreshold(newES.bk, newES.cs.round, "Prevote", nilThreshold)) 
+        if (checkThreshold(newES.bk, newES.cs.round, Prevote, NilThreshold)) 
             callConsensus(es, es.bk, {  name: "PolkaNil",
                                         height: newES.cs.height,
                                         round: newES.cs.round,
                                         value: "nil",
                                         vr: -1})  
-        else if (checkThreshold(newES.bk, newES.cs.round, "Prevote", anyThreshold)) 
+        else if (checkThreshold(newES.bk, newES.cs.round, Prevote, AnyThreshold)) 
             callConsensus(es, es.bk, {  name: "PolkaAny",
                                         height: newES.cs.height,
                                         round: newES.cs.round,
@@ -537,7 +539,7 @@ pure def setValue(es: DriverState, value: Value_t) : (DriverState, ConsensusOutp
 pure def driverLogic (es: DriverState, input: DriverInput) : (DriverState, ConsensusOutput) = {
     // TODO: shall we check whether the sender actually is in the validator set
     if (input.name == "proposal") {
-        val res = proposal(es, input)
+        val res = proposalMsg(es, input)
         if (res._2.name == "decided")
             decided (res._1, res._2)
         else if (res._2.name == "skipRound")