diff --git a/app/Main.hs b/app/Main.hs index 0b6a6f0..41560df 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -204,12 +204,14 @@ main :: IO () main = do config <- load ["$(HOME)/Zenith/zenith.cfg"] args <- getArgs - dbFilePath <- require config "dbFilePath" + dbFileName <- require config "dbFileName" {-nodeUser <- require config "nodeUser"-} {-nodePwd <- require config "nodePwd"-} zebraPort <- require config "zebraPort" 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) then do case head args