app/Main.hs

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

zenith.cfg

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