Move away from Opt.auto in Legacy/Options.hs

IntersectMBO · Aug 22, 2024 · 4f2ee81 · 4f2ee81
1 parent 4be6410
commit 4f2ee81
Showing 1 changed file with 12 additions and 12 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Options.hs b/cardano-cli/src/Cardano/CLI/Legacy/Options.hs
@@ -562,7 +562,7 @@ pNodeCmds =
 
   pCounterValue :: Parser Word
   pCounterValue =
-    Opt.option Opt.auto $
+    Opt.option integralReader $
       mconcat
         [ Opt.long "counter-value"
         , Opt.metavar "INT"
@@ -1133,7 +1133,7 @@ pGenesisCmds envCli =
 
   pGenesisNumGenesisKeys :: Parser Word
   pGenesisNumGenesisKeys =
-    Opt.option Opt.auto $
+    Opt.option integralReader $
       mconcat
         [ Opt.long "gen-genesis-keys"
         , Opt.metavar "INT"
@@ -1146,7 +1146,7 @@ pGenesisCmds envCli =
 
   pGenesisNumUTxOKeys :: Parser Word
   pGenesisNumUTxOKeys =
-    Opt.option Opt.auto $
+    Opt.option integralReader $
       mconcat
         [ Opt.long "gen-utxo-keys"
         , Opt.metavar "INT"
@@ -1156,7 +1156,7 @@ pGenesisCmds envCli =
 
   pGenesisNumPools :: Parser Word
   pGenesisNumPools =
-    Opt.option Opt.auto $
+    Opt.option integralReader $
       mconcat
         [ Opt.long "gen-pools"
         , Opt.metavar "INT"
@@ -1166,7 +1166,7 @@ pGenesisCmds envCli =
 
   pGenesisNumStDelegs :: Parser Word
   pGenesisNumStDelegs =
-    Opt.option Opt.auto $
+    Opt.option integralReader $
       mconcat
         [ Opt.long "gen-stake-delegs"
         , Opt.metavar "INT"
@@ -1176,7 +1176,7 @@ pGenesisCmds envCli =
 
   pStuffedUtxoCount :: Parser Word
   pStuffedUtxoCount =
-    Opt.option Opt.auto $
+    Opt.option integralReader $
       mconcat
         [ Opt.long "num-stuffed-utxo"
         , Opt.metavar "INT"
@@ -1198,7 +1198,7 @@ pGenesisCmds envCli =
   pInitialSupplyNonDelegated =
     Opt.optional $
       fmap Coin $
-        Opt.option Opt.auto $
+        Opt.option integralReader $
           mconcat
             [ Opt.long "supply"
             , Opt.metavar "LOVELACE"
@@ -1210,7 +1210,7 @@ pGenesisCmds envCli =
   pInitialSupplyDelegated =
     fmap (Coin . fromMaybe 0) $
       Opt.optional $
-        Opt.option Opt.auto $
+        Opt.option integralReader $
           mconcat
             [ Opt.long "supply-delegated"
             , Opt.metavar "LOVELACE"
@@ -1221,7 +1221,7 @@ pGenesisCmds envCli =
 
   pSecurityParam :: Parser Word64
   pSecurityParam =
-    Opt.option Opt.auto $
+    Opt.option integralReader $
       mconcat
         [ Opt.long "security-param"
         , Opt.metavar "INT"
@@ -1231,7 +1231,7 @@ pGenesisCmds envCli =
 
   pSlotLength :: Parser Word
   pSlotLength =
-    Opt.option Opt.auto $
+    Opt.option integralReader $
       mconcat
         [ Opt.long "slot-length"
         , Opt.metavar "INT"
@@ -1251,7 +1251,7 @@ pGenesisCmds envCli =
 
   pBulkPoolCredFiles :: Parser Word
   pBulkPoolCredFiles =
-    Opt.option Opt.auto $
+    Opt.option integralReader $
       mconcat
         [ Opt.long "bulk-pool-cred-files"
         , Opt.metavar "INT"
@@ -1261,7 +1261,7 @@ pGenesisCmds envCli =
 
   pBulkPoolsPerFile :: Parser Word
   pBulkPoolsPerFile =
-    Opt.option Opt.auto $
+    Opt.option integralReader $
       mconcat
         [ Opt.long "bulk-pools-per-file"
         , Opt.metavar "INT"