fix: Improve log message on config load
This commit is contained in:
committed by
Remo Rechkemmer
parent
acd787a5af
commit
387c387073
@@ -204,7 +204,6 @@ listener appState = do
|
|||||||
putStrLn $ "Retrying listening for notifications on the " <> dbChannel <> " channel.."
|
putStrLn $ "Retrying listening for notifications on the " <> dbChannel <> " channel.."
|
||||||
-- assume the pool connection was also lost, call the connection worker
|
-- assume the pool connection was also lost, call the connection worker
|
||||||
connectionWorker appState
|
connectionWorker appState
|
||||||
|
|
||||||
-- retry the listener
|
-- retry the listener
|
||||||
listener appState
|
listener appState
|
||||||
|
|
||||||
@@ -234,10 +233,10 @@ reReadConfig startingUp appState = do
|
|||||||
if startingUp then
|
if startingUp then
|
||||||
panic err -- die on invalid config if the program is starting up
|
panic err -- die on invalid config if the program is starting up
|
||||||
else
|
else
|
||||||
hPutStrLn stderr $ "Failed loading in-database config. " <> err
|
hPutStrLn stderr $ "Failed re-loading config: " <> err
|
||||||
Right newConf -> do
|
Right newConf -> do
|
||||||
AppState.putConfig appState newConf
|
AppState.putConfig appState newConf
|
||||||
if startingUp then
|
if startingUp then
|
||||||
pass
|
pass
|
||||||
else
|
else
|
||||||
putStrLn ("In-database config loaded" :: Text)
|
putStrLn ("Config re-loaded" :: Text)
|
||||||
|
|||||||
Reference in New Issue
Block a user