From c89d5a46d4bbd1c7d2079e6c10118ef7fc87c590 Mon Sep 17 00:00:00 2001 From: "Rene Vergara A." Date: Mon, 22 Jul 2024 20:50:49 -0400 Subject: [PATCH] rvv041 - Zenith dbFilePath changed for dbFileName --- app/Main.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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