Fix PS-generator and generated files to match (#63)

input-output-hk · Jan 16, 2024 · 6052803 · 6052803
1 parent aee92de
commit 6052803
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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"""
diff --git 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"