From e5a532a697b54c2029e627947e981354733d7e0b Mon Sep 17 00:00:00 2001 From: Stanislav Smirnov Date: Sat, 15 Feb 2025 03:00:14 +0200 Subject: [PATCH] Fixing of issue https://github.com/snoyberg/keter/issues/296 "Reloading is broken in v2.1 with rotate-logs: True" --- src/Keter/App.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/Keter/App.hs b/src/Keter/App.hs index 7f1f371..367a39f 100644 --- a/src/Keter/App.hs +++ b/src/Keter/App.hs @@ -235,7 +235,11 @@ withLogger aid (Just var) f = do mappLogger <- liftIO $ readTVarIO var case mappLogger of Nothing -> withRunInIO $ \rio -> - bracketOnError (Log.createLoggerViaConfig ascKeterConfig (appLogName aid)) Log.loggerClose (rio . f var) + bracketOnError (Log.createLoggerViaConfig ascKeterConfig (appLogName aid)) + Log.loggerClose + $ \appLogger -> do + atomically $ writeTVar var $ Just appLogger + rio $ f var appLogger Just appLogger -> f var appLogger withSanityChecks :: BundleConfig -> KeterM AppStartConfig a -> KeterM AppStartConfig a