Accept a --wall-clock-time option for the Canton sandbox (digital-ass…

…et#12733) We have this in so many of our examples that I expect a lot of users have it as well and we can trivially support it so it seems nice to not break things more for our users than necessary. changelog_begin changelog_end
TuranDev · Feb 3, 2022 · f6344a2 · f6344a2
1 parent 437fca8
commit f6344a2
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/daml-assistant/daml-helper/src/DA/Daml/Helper/Main.hs b/daml-assistant/daml-helper/src/DA/Daml/Helper/Main.hs
@@ -428,7 +428,10 @@ commandParser = subparser $ fold
             cantonDomainAdminApi <- option auto (long "domain-admin-port" <> value 6868)
             cantonPortFileM <- optional $ option str (long "canton-port-file" <> metavar "PATH"
                 <> help "File to write canton participant ports when ready")
-            cantonStaticTime <- StaticTime <$> switch (long "static-time")
+            cantonStaticTime <- StaticTime <$>
+                (flag' True (long "static-time") <|>
+                 flag' False (long "wall-clock-time") <|>
+                 pure False)
             pure CantonOptions{..}
         portFileM <- optional $ option str (long "port-file" <> metavar "PATH"
             <> help "File to write ledger API port when ready")