PLT-8827 - Update swap example

input-output-hk · Jan 17, 2024 · d7f81d1 · d7f81d1
1 parent c16bb11
commit d7f81d1
Show file tree

Hide file tree

Showing 5 changed files with 10 additions and 8 deletions.
diff --git a/marlowe-playground-client/generated/Examples/Haskell/Contracts.purs b/marlowe-playground-client/generated/Examples/Haskell/Contracts.purs
@@ -344,7 +344,7 @@ adaDepositTimeout = TimeParam "Timeout for Ada deposit"
 dollarDepositTimeout = TimeParam "Timeout for dollar deposit"
 
 dollars :: Token
-dollars = Token "85bb65" "dollar"
+dollars = Token "85bb65085bb65085bb65085bb65085bb65085bb65085bb65085bb650" "dollar"
 
 data SwapParty = SwapParty { party    :: Party
                            , currency :: Token
@@ -606,4 +606,4 @@ cfd = initialDeposit party partyDeposit (TimeParam "Party deposit deadline") Clo
                   $ refundAfterDifference party partyDeposit counterparty counterpartyDeposit (UseValue increaseInPrice)
                   )
                   refundBoth
-"""
+"""
diff --git a/marlowe-playground-client/generated/Examples/Marlowe/Contracts.purs b/marlowe-playground-client/generated/Examples/Marlowe/Contracts.purs
@@ -210,7 +210,7 @@ swap =
      (When [
         (Case
            (Deposit (Role "Dollar provider") (Role "Dollar provider")
-              (Token "85bb65" "dollar")
+              (Token "85bb65085bb65085bb65085bb65085bb65085bb65085bb65085bb650" "dollar")
               (ConstantParam "Amount of dollars"))
            (Pay (Role "Ada provider")
               (Party (Role "Dollar provider"))
@@ -220,7 +220,7 @@ swap =
                  (ConstantParam "Amount of Ada"))
               (Pay (Role "Dollar provider")
                  (Party (Role "Ada provider"))
-                 (Token "85bb65" "dollar")
+                 (Token "85bb65085bb65085bb65085bb65085bb65085bb65085bb65085bb650" "dollar")
                  (ConstantParam "Amount of dollars") Close)))] (TimeParam "Timeout for dollar deposit") Close))] (TimeParam "Timeout for Ada deposit") Close"""
 
 contractForDifferences :: String
@@ -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-client/src/Examples/JS/Contracts.purs b/marlowe-playground-client/src/Examples/JS/Contracts.purs
@@ -292,7 +292,7 @@ swap =
     const adaDepositTimeout: Timeout = TimeParam("Timeout for Ada deposit");
     const dollarDepositTimeout: Timeout = TimeParam("Timeout for dollar deposit");
 
-    const dollars: Token = Token("85bb65", "dollar")
+    const dollars: Token = Token("85bb65085bb65085bb65085bb65085bb65085bb65085bb65085bb650", "dollar")
 
     type SwapParty = {
         party: Party;

diff --git a/marlowe-playground-server/contracts/Swap.hs b/marlowe-playground-server/contracts/Swap.hs
@@ -22,7 +22,7 @@ adaDepositTimeout = TimeParam "Timeout for Ada deposit"
 dollarDepositTimeout = TimeParam "Timeout for dollar deposit"
 
 dollars :: Token
-dollars = Token "85bb65" "dollar"
+dollars = Token "85bb65085bb65085bb65085bb65085bb65085bb65085bb65085bb650" "dollar"
 
 data SwapParty = SwapParty { party    :: Party
                            , currency :: Token

diff --git a/web-common-marlowe/src/Examples/PureScript/Swap.purs b/web-common-marlowe/src/Examples/PureScript/Swap.purs
@@ -114,7 +114,9 @@ dollarDepositTimeout :: Timeout
 dollarDepositTimeout = TimeParam "Timeout for dollar deposit"
 
 dollars :: Token
-dollars = Token "85bb65" "dollar"
+dollars = Token
+  "85bb65085bb65085bb65085bb65085bb65085bb65085bb65085bb650"
+  "dollar"
 
 type SwapParty =
   { party :: Party