From 60528039e5acb3965de55b608cea3632a146046c Mon Sep 17 00:00:00 2001 From: Pablo Lamela Date: Tue, 16 Jan 2024 14:06:22 +0100 Subject: [PATCH] Fix PS-generator and generated files to match (#63) --- .../generated/Examples/Haskell/Contracts.purs | 2 +- .../generated/Examples/Marlowe/Contracts.purs | 2 +- marlowe-playground-server/contracts/EscrowWithCollateral.hs | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/marlowe-playground-client/generated/Examples/Haskell/Contracts.purs b/marlowe-playground-client/generated/Examples/Haskell/Contracts.purs index 97758a720..7385e7465 100644 --- a/marlowe-playground-client/generated/Examples/Haskell/Contracts.purs +++ b/marlowe-playground-client/generated/Examples/Haskell/Contracts.purs @@ -127,7 +127,7 @@ explicitRefunds = False seller, buyer, burnAddress :: Party buyer = Role "Buyer" seller = Role "Seller" -burnAddress = Address testnet (P.Address (P.PubKeyCredential "0000000000000000000000000000000000000000000000000000000000000000") Nothing) +burnAddress = Address testnet (P.Address (P.PubKeyCredential "00000000000000000000000000000000000000000000000000000000") Nothing) price, collateral :: Value price = ConstantParam "Price" diff --git a/marlowe-playground-client/generated/Examples/Marlowe/Contracts.purs b/marlowe-playground-client/generated/Examples/Marlowe/Contracts.purs index 085677c54..e31510ac1 100644 --- a/marlowe-playground-client/generated/Examples/Marlowe/Contracts.purs +++ b/marlowe-playground-client/generated/Examples/Marlowe/Contracts.purs @@ -357,4 +357,4 @@ contractForDifferencesWithOracle = (UseValue "Increase in price") (ConstantParam "Amount paid by party")) (UseValue "Increase in price") - (ConstantParam "Amount paid by party")) Close)) Close))))] (TimeParam "Second window deadline") Close)))] (TimeParam "First window deadline") Close)))] (TimeParam "Counterparty deposit deadline") Close))] (TimeParam "Party deposit deadline") Close""" + (ConstantParam "Amount paid by party")) Close)) Close))))] (TimeParam "Second window deadline") Close)))] (TimeParam "First window deadline") Close)))] (TimeParam "Counterparty deposit deadline") Close))] (TimeParam "Party deposit deadline") Close""" \ No newline at end of file diff --git a/marlowe-playground-server/contracts/EscrowWithCollateral.hs b/marlowe-playground-server/contracts/EscrowWithCollateral.hs index aa8484f5a..15a5569d6 100644 --- a/marlowe-playground-server/contracts/EscrowWithCollateral.hs +++ b/marlowe-playground-server/contracts/EscrowWithCollateral.hs @@ -17,7 +17,7 @@ explicitRefunds = False seller, buyer, burnAddress :: Party buyer = Role "Buyer" seller = Role "Seller" -burnAddress = Address testnet (P.Address (P.PubKeyCredential "0000000000000000000000000000000000000000000000000000000000000000") Nothing) +burnAddress = Address testnet (P.Address (P.PubKeyCredential "00000000000000000000000000000000000000000000000000000000") Nothing) price, collateral :: Value price = ConstantParam "Price"