Fixed #189. Allow ada as default token for marlowe-cli template swap.

marlowe-lang · Dec 15, 2023 · 0c91a73 · 0c91a73
1 parent 0ff21f6
commit 0c91a73
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/marlowe-cli/changelog.d/20231215_114608_brian.bush_issue189.md b/marlowe-cli/changelog.d/20231215_114608_brian.bush_issue189.md
@@ -0,0 +1,3 @@
+### Changed
+
+- Marlowe CLI swap template tokens default to ada if not specified.
diff --git a/marlowe-cli/command/Language/Marlowe/CLI/Command/Template.hs b/marlowe-cli/command/Language/Marlowe/CLI/Command/Template.hs
@@ -40,7 +40,7 @@ import Language.Marlowe.CLI.Command.Parse (
 import Language.Marlowe.CLI.Examples (makeExample)
 import Language.Marlowe.CLI.IO (decodeFileStrict)
 import Language.Marlowe.CLI.Types (CliError (..), SomeTimeout, toMarloweExtendedTimeout, toMarloweTimeout)
-import Language.Marlowe.Extended.V1 as E (Contract (..), Party, Token, Value (..))
+import Language.Marlowe.Extended.V1 as E (Contract (..), Party, Token (..), Value (..))
 import Language.Marlowe.Util (ada)
 import Marlowe.Contracts (coveredCall, escrow, swap, trivial, zeroCouponBond)
 
@@ -455,7 +455,7 @@ templateSwapOptions =
       )
     <*> O.option
       parseToken
-      ( O.long "a-token" <> O.metavar "TOKEN" <> O.help "The first party's token."
+      ( O.long "a-token" <> O.value (Token "" "") <> O.metavar "TOKEN" <> O.help "The first party's token (default is ada)."
       )
     <*> O.option
       O.auto
@@ -473,7 +473,7 @@ templateSwapOptions =
       )
     <*> O.option
       parseToken
-      ( O.long "b-token" <> O.metavar "TOKEN" <> O.help "The second party's token."
+      ( O.long "b-token" <> O.value (Token "" "") <> O.metavar "TOKEN" <> O.help "The second party's token. (default is ada)"
       )
     <*> O.option
       O.auto
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,3 @@
		### Changed

		- Marlowe CLI swap template tokens default to ada if not specified.