Automating the Upgrade Process¶
In this section, we are going to automate the upgrade of our carbon certificate process using DAML Script and DAML Triggers. Note that automation for upgrades is specific to an individual application, just like the upgrade models. Nevertheless, we have found that the pattern shown here occurs frequently.
Structuring the Upgrade¶
There are three kinds of actions performed during the upgrade:
- Alice creates
UpgradeCarbonCertProposalcontracts. We assume here, that Alice wants to upgrade all
CarbonCertcontracts she has issued. Since the
UpgradeCarbonCertProposalproposal is specific to each owner, Alice has to create one
UpgradeCarbonCertProposalper owner. There can be potentially many owners but this step only has to be performed once assuming Alice will not issue more
CarbonCertcontracts after this point.
- Bob and other owners accept the
UpgradeCarbonCertProposal. To keep this example simple, we assume that there are only carbon certificates issued by Alice. Therefore, each owner has to accept at most one proposal.
- As owners accept upgrade proposals, Alice has to upgrade each certificate. This means that she has to execute the upgrade choice once for each certificate. Owners will not all accept the upgrade at the same time and some might never accept it. Therefore, this should be a long-running process that upgrades all carbon certificates of a given owner as soon as they accept the upgrade.
Given those constraints, we are going to use the following tools for the upgrade:
- A DAML script that will be executed once by Alice and creates an
UpgradeCarbonCertProposalcontract for each owner.
- Navigator to accept the
UpgradeCarbonCertProposalas Bob. While we could also use a DAML script to accept the proposal, this step will often be exposed as part of a web UI so doing it interactively in Navigator resembles that workflow more closely.
- A long-running DAML trigger that upgrades all
CarbonCertcontracts for which there is a corresponding
Implementation of the DAML Script¶
In our DAML Script, we are first going to query the ACS (Active Contract Set) to find all
CarbonCert contracts issued by us. Next, we are going to extract the
owner of each of those contracts and remove any duplicates coming from
multiple certificates issued to the same owner. Finally, we iterate over the
owners and create an
UpgradeCarbonCertAgreement contract for each owner.
initiateUpgrade : Party -> Script () initiateUpgrade issuer = do certs <- query @CarbonCert issuer let myCerts = filter (\(_cid, c) -> c.issuer == issuer) certs let owners = dedup $ map (\(_cid, c) -> c.owner) myCerts forA_ owners $ \owner -> do debug ("Creating upgrade proposal for: " <> show owner) submit issuer $ createCmd (UpgradeCarbonCertProposal issuer owner)
Implementation of the DAML Trigger¶
Our trigger does not need any custom user state and no heartbeat so the only interesting field in its definition is the rule.
upgradeTrigger : Trigger () upgradeTrigger = Trigger with initialize = pure () updateState = \_msg -> pure () registeredTemplates = AllInDar heartbeat = None rule = triggerRule
In our rule, we first filter out all agreements and certificates issued by
us. Next, we iterate over all agreements. For each agreement we filter
the certificates by the owner of the agreement and finally upgrade the certificate
by exercising the
Upgrade choice. We mark the certificate as pending
which temporarily removes it from the ACS and therefore stops the
trigger from trying to upgrade the same certificate multiple times if the
rule is triggered in quick succession.
triggerRule : Party -> TriggerA () () triggerRule issuer = do agreements <- filter (\(_cid, agreement) -> agreement.issuer == issuer) <$> query @UpgradeCarbonCertAgreement allCerts <- filter (\(_cid, cert) -> cert.issuer == issuer) <$> query @CarbonCert forA_ agreements $ \(agreementCid, agreement) -> do let certsForOwner = filter (\(_cid, cert) -> cert.owner == agreement.owner) allCerts forA_ certsForOwner $ \(certCid, _) -> emitCommands [exerciseCmd agreementCid (Upgrade certCid)] [toAnyContractId certCid]
The trigger is a long-running process and the rule will be executed whenever the state of the ledger changes. So whenever an owner accepts an upgrade proposal, the trigger will run the rule and upgrade all certificates of that owner.
Deploying and Executing the Upgrade¶
Now that we defined our DAML script and our trigger, it is time to use them! If you still have Sandbox running from the previous section, stop it to clear out all data before continuing.
First, we start sandbox passing in the
carbon-upgrade DAR. Since a
DAR includes all transitive dependencies, this includes
$ cd example/carbon-upgrade $ daml sandbox .daml/dist/carbon-upgrade-1.0.0.dar
To simplify the setup here, we use a DAML script to create 3 parties
Alice, Bob and Charlie and two
CarbonCert contracts issues by Alice, one
owned by Bob and one owned by Charlie.
setup : Script () setup = do alice <- allocatePartyWithHint "Alice" (PartyIdHint "Alice") bob <- allocatePartyWithHint "Bob" (PartyIdHint "Bob") charlie <- allocatePartyWithHint "Charlie" (PartyIdHint "Charlie") bobProposal <- submit alice $ createCmd (CarbonCertProposal alice bob 10) submit bob $ exerciseCmd bobProposal CarbonCertProposal_Accept charlieProposal <- submit alice $ createCmd (CarbonCertProposal alice charlie 5) submit charlie $ exerciseCmd charlieProposal CarbonCertProposal_Accept pure ()
Run the script as follows:
$ cd example/carbon-initiate-upgrade $ daml build $ daml script --dar=.daml/dist/carbon-initiate-upgrade-1.0.0.dar --script-name=InitiateUpgrade:setup --ledger-host=localhost --ledger-port=6865 --wall-clock-time
If you now start Navigator from the
directory and log in as Alice, you can see the two
Next, we run the trigger for Alice. The trigger will keep running throughout the rest of this example.
$ cd example/carbon-upgrade-trigger $ daml build $ daml trigger --dar=.daml/dist/carbon-upgrade-trigger-1.0.0.dar --trigger-name=UpgradeTrigger:upgradeTrigger --ledger-host=localhost --ledger-port=6865 --ledger-party=Alice --wall-clock-time
With the trigger running, we can now run the script to create the
UpgradeCarbonCertProposal contracts (we could also have done that before
starting the trigger). The script takes an argument of type
Party. We can pass this in via the
--input-file argument which
we will point to a file
"Alice". This allows us to
change the party without having to change the code of the script.
$ cd example/carbon-initiate-upgrade $ daml build $ daml script --dar=.daml/dist/carbon-initiate-upgrade-1.0.0.dar --script-name=InitiateUpgrade:initiateUpgrade --ledger-host=localhost --ledger-port=6865 --wall-clock-time --input-file=party.json
At this point, our trigger is running and the
contracts for Bob and Charlie have been created. What is left to do is
to accept the proposals. Our trigger will then automatically pick them
up and upgrade the
First, start Navigator and log in as Bob. Click on the
UpgradeCarbonCertProposal and accept it. If you now go back to the
contracts tab, you can see that the
CarbonCert contract has been
archived and instead there is a new
CarbonCertWithMethod upgrade. Our
trigger has successfully upgraded the
Next, log in as Charlie and accept the
like for Bob, you can see that the
CarbonCert contract has been archived
and instead there is a new
Since we upgraded all
CarbonCert contracts issued by Alice, we can now stop the
trigger and declare the update successful.