rvv041 - Zenith dbFilePath changed for dbFileName
This commit is contained in:
parent
01459544a5
commit
c89d5a46d4
1 changed files with 4 additions and 2 deletions
|
@ -204,12 +204,14 @@ main :: IO ()
|
||||||
main = do
|
main = do
|
||||||
config <- load ["$(HOME)/Zenith/zenith.cfg"]
|
config <- load ["$(HOME)/Zenith/zenith.cfg"]
|
||||||
args <- getArgs
|
args <- getArgs
|
||||||
dbFilePath <- require config "dbFilePath"
|
dbFileName <- require config "dbFileName"
|
||||||
{-nodeUser <- require config "nodeUser"-}
|
{-nodeUser <- require config "nodeUser"-}
|
||||||
{-nodePwd <- require config "nodePwd"-}
|
{-nodePwd <- require config "nodePwd"-}
|
||||||
zebraPort <- require config "zebraPort"
|
zebraPort <- require config "zebraPort"
|
||||||
zebraHost <- require config "zebraHost"
|
zebraHost <- require config "zebraHost"
|
||||||
let myConfig = Config dbFilePath zebraHost zebraPort
|
dbFP <- getZenithPath
|
||||||
|
let dbFilePath = dbFP ++ dbFileName
|
||||||
|
let myConfig = Config (T.pack dbFilePath) zebraHost zebraPort
|
||||||
if not (null args)
|
if not (null args)
|
||||||
then do
|
then do
|
||||||
case head args
|
case head args
|
||||||
|
|
Loading…
Reference in a new issue