Update README and change block-delay flag name

Author: edmundnoble

README.md

@@ -60,10 +60,11 @@ Usage: chainweb-mining-client [--info] [--long-info] [-v|--version] [--license]
                               [-c|--thread-count ARG]
                               [--generate-key | --no-generate-key]
                               [-l|--log-level error|warn|info|debug]
-                              [-w|--worker cpu|external|simulation|stratum]
+                              [-w|--worker cpu|external|simulation|stratum|constant-delay]
                               [--external-worker-cmd ARG] [--stratum-port ARG]
                               [--stratum-interface ARG]
                               [--stratum-difficulty ARG] [-s|--stratum-rate ARG]
+                              [--constant-delay-block-time ARG]
 
   Kadena Chainweb Mining Client
 
@@ -98,7 +99,7 @@ Available options:
   -l,--log-level error|warn|info|debug
                            Level at which log messages are written to the
                            console
-  -w,--worker cpu|external|simulation|stratum
+  -w,--worker cpu|external|simulation|stratum|constant-delay
                            The type of mining worker that is used
   --external-worker-cmd ARG
                            command that is used to call an external worker. When
@@ -114,6 +115,8 @@ Available options:
                            leading zeros).
   -s,--stratum-rate ARG    Rate (in milliseconds) at which a stratum worker
                            thread emits jobs.
+  --constant-delay-block-time ARG
+                           time at which a constant-delay worker emits blocks
 
 Configurations are loaded in order from the following sources:
   1. Configuration files from locations provided through --config-file options

main/Main.hs

@@ -256,7 +256,7 @@ data Config = Config
     , _configStratumInterface :: !HostPreference
     , _configStratumDifficulty :: !Stratum.StratumDifficulty
     , _configStratumRate :: !Natural
-    , _configBlockTime :: !Natural
+    , _configConstantDelayBlockTime :: !Natural
     }
     deriving (Show, Eq, Ord, Generic)
 
@@ -279,7 +279,7 @@ defaultConfig = Config
     , _configStratumInterface = "*"
     , _configStratumDifficulty = Stratum.WorkDifficulty
     , _configStratumRate = 1000
-    , _configBlockTime = 30
+    , _configConstantDelayBlockTime = 30
     }
 
 instance ToJSON Config where
@@ -299,7 +299,7 @@ instance ToJSON Config where
         , "stratumInterface" .= _configStratumInterface c
         , "stratumDifficulty" .= _configStratumDifficulty c
         , "stratumRate" .= _configStratumRate c
-        , "blockTime" .= _configBlockTime c
+        , "constantDelayBlockTime" .= _configConstantDelayBlockTime c
         ]
 
 instance FromJSON (Config -> Config) where
@@ -319,7 +319,7 @@ instance FromJSON (Config -> Config) where
         <*< configStratumInterface ..: "stratumInterface" % o
         <*< configStratumDifficulty ..: "stratumDifficulty" % o
         <*< configStratumRate ..: "stratumRate" % o
-        <*< configBlockTime ..: "blockTime" % o
+        <*< configConstantDelayBlockTime ..: "constantDelayBlockTime" % o
       where
         parseLogLevel = withText "LogLevel" $ return . logLevelFromText
 
@@ -383,8 +383,8 @@ parseConfig = id
         % short 's'
         <> long "stratum-rate"
         <> help "Rate (in milliseconds) at which a stratum worker thread emits jobs."
-    <*< configBlockTime .:: option auto
-        % long "block-time"
+    <*< configConstantDelayBlockTime .:: option auto
+        % long "constant-delay-block-time"
         <> help "time at which a constant-delay worker emits blocks"
 
 -- -------------------------------------------------------------------------- --
@@ -829,7 +829,7 @@ run conf logger = do
             rng <- MWC.createSystemRandom
             f $ \l -> simulationWorker l rng workerRate
         ConstantDelayWorker -> do
-            f $ \l -> constantDelayWorker l (_configBlockTime conf)
+            f $ \l -> constantDelayWorker l (_configConstantDelayBlockTime conf)
         ExternalWorker -> f $ \l -> externalWorker l (_configExternalWorkerCommand conf)
         CpuWorker -> f $ cpuWorker @Blake2s_256
         StratumWorker -> Stratum.withStratumServer