Fixing of issue #296 "Reloading is broken in v2.1 with rotate-logs: T…

…rue"
snoyberg · Feb 16, 2025 · e5a532a · e5a532a
1 parent 206b5d2
commit e5a532a
Showing 1 changed file with 5 additions and 1 deletion.
diff --git 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