Move away from Opt.auto in various places

IntersectMBO · Aug 22, 2024 · 8fe2f7d · 8fe2f7d
1 parent 2c717d0
commit 8fe2f7d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/Node.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/Node.hs
@@ -115,7 +115,7 @@ pNewCounter =
 
 pCounterValue :: Parser Word
 pCounterValue =
-  Opt.option Opt.auto $
+  Opt.option integralReader $
     mconcat
       [ Opt.long "counter-value"
       , Opt.metavar "INT"

diff --git a/cardano-cli/src/Cardano/CLI/Options/Ping.hs b/cardano-cli/src/Cardano/CLI/Options/Ping.hs
@@ -8,6 +8,7 @@ module Cardano.CLI.Options.Ping
 where
 
 import           Cardano.CLI.Commands.Ping
+import           Cardano.CLI.EraBased.Options.Common (integralReader)
 import qualified Cardano.Network.Ping as CNP
 
 import           Control.Applicative ((<|>))
@@ -55,7 +56,7 @@ pEndPoint = fmap HostEndPoint pHost <|> fmap UnixSockEndPoint pUnixSocket
 pPing :: Opt.Parser PingCmd
 pPing =
   PingCmd
-    <$> ( Opt.option Opt.auto $
+    <$> ( Opt.option integralReader $
             mconcat
               [ Opt.long "count"
               , Opt.short 'c'
@@ -78,7 +79,7 @@ pPing =
               , Opt.value "3001"
               ]
         )
-    <*> ( Opt.option Opt.auto $
+    <*> ( Opt.option integralReader $
             mconcat
               [ Opt.long "magic"
               , Opt.short 'm'