Add new config parameter for Zebra port

This commit is contained in:
Rene Vergara 2024-02-12 15:09:12 -06:00
parent e86e4c73ab
commit 3ccee4ecb6
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
2 changed files with 3 additions and 1 deletions

View file

@ -202,6 +202,7 @@ main = do
dbName <- require config "dbName" dbName <- require config "dbName"
nodeUser <- require config "nodeUser" nodeUser <- require config "nodeUser"
nodePwd <- require config "nodePwd" nodePwd <- require config "nodePwd"
zebraPort <- require config "zebraPort"
if not (null args) if not (null args)
then do then do
case head args of case head args of
@ -215,7 +216,7 @@ main = do
" ______ _ _ _ \n |___ / (_) | | | \n / / ___ _ __ _| |_| |__ \n / / / _ \\ '_ \\| | __| '_ \\ \n / /_| __/ | | | | |_| | | |\n /_____\\___|_| |_|_|\\__|_| |_|\n Zcash Full Node CLI v0.4.0" " ______ _ _ _ \n |___ / (_) | | | \n / / ___ _ __ _| |_| |__ \n / / / _ \\ '_ \\| | __| '_ \\ \n / /_| __/ | | | | |_| | | |\n /_____\\___|_| |_|_|\\__|_| |_|\n Zcash Full Node CLI v0.4.0"
} }
(root nodeUser nodePwd) (root nodeUser nodePwd)
"cli" -> runZenithCLI dbName "cli" -> runZenithCLI zebraPort dbName
_ -> printUsage _ -> printUsage
else printUsage else printUsage

View file

@ -1,3 +1,4 @@
nodeUser = "user" nodeUser = "user"
nodePwd = "superSecret" nodePwd = "superSecret"
dbName = "zenith.db" dbName = "zenith.db"
zebraPort = 18232