create-testnet-data, create-staked: make relation between --supply an…

…d --supply-delegated explicit in --help
IntersectMBO · Jan 18, 2024 · 4bf00c7 · 4bf00c7
1 parent 5073187
commit 4bf00c7
Showing 1 changed file with 12 additions and 4 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/Genesis.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/Genesis.hs
@@ -275,15 +275,19 @@ pGenesisCreateTestNetData envCli =
       Opt.optional $ fmap Lovelace $ Opt.option Opt.auto $ mconcat
         [ Opt.long "supply"
         , Opt.metavar "LOVELACE"
-        , Opt.help "The initial coin supply in Lovelace which will be evenly distributed across initial, non-delegating stake holders. Defaults to 1 million Ada (i.e. 10^12 Lovelace)."
+        , Opt.help $ unlines [ "The initial coin supply in Lovelace which will be evenly distributed across initial, non-delegating stake holders. Defaults to 1 million Ada (i.e. 10^12 Lovelace)."
+                             , " The total supply is this amount plus the amount specified with --supply-delegated."
+                             ]
         , Opt.value 1000000000000
         ]
     pSupplyDelegated :: Parser (Maybe Lovelace)
     pSupplyDelegated =
       Opt.optional $ fmap Lovelace $ Opt.option Opt.auto $ mconcat
         [ Opt.long "supply-delegated"
         , Opt.metavar "LOVELACE"
-        , Opt.help "The initial coin supply in Lovelace which will be evenly distributed across initial, delegating stake holders. Defaults to 1 million Ada (i.e. 10^12 Lovelace)."
+        , Opt.help $ unlines [ "The initial coin supply in Lovelace which will be evenly distributed across initial, delegating stake holders. Defaults to 1 million Ada (i.e. 10^12 Lovelace)."
+                             , " The total supply is this amount plus the amount specified with --supply."
+                             ]
         , Opt.value 1000000000000
         ]
     pOutputDir = Opt.strOption $ mconcat
@@ -374,15 +378,19 @@ pInitialSupplyNonDelegated =
   Opt.optional $ fmap Lovelace $ Opt.option Opt.auto $ mconcat
     [ Opt.long "supply"
     , Opt.metavar "LOVELACE"
-    , Opt.help "The initial coin supply in Lovelace which will be evenly distributed across initial, non-delegating stake holders."
+    , Opt.help $ unlines [ "The initial coin supply in Lovelace which will be evenly distributed across initial, non-delegating stake holders. Defaults to 1 million Ada (i.e. 10^12 Lovelace)."
+                         , " The total supply is this amount plus the amount specified with --supply-delegated."
+                         ]
     ]
 
 pInitialSupplyDelegated :: Parser Lovelace
 pInitialSupplyDelegated =
   fmap (Lovelace . fromMaybe 0) $ Opt.optional $ Opt.option Opt.auto $ mconcat
     [ Opt.long "supply-delegated"
     , Opt.metavar "LOVELACE"
-    , Opt.help "The initial coin supply in Lovelace which will be evenly distributed across initial, delegating stake holders."
+    , Opt.help $ unlines [ "The initial coin supply in Lovelace which will be evenly distributed across initial, delegating stake holders. Defaults to 1 million Ada (i.e. 10^12 Lovelace)."
+                         , " The total supply is this amount plus the amount specified with --supply."
+                         ]
     , Opt.value 0
     ]