diff --git a/ChangeLog.md b/ChangeLog.md index 3d33910..05f6451 100644 --- a/ChangeLog.md +++ b/ChangeLog.md @@ -1,4 +1,7 @@ +## 2.1.5 ++ Fix OOM bug on logfile rotation + ## 2.1.4 + bump package versions, tls, warp and zlib diff --git a/keter.cabal b/keter.cabal index d158ede..a1c63d2 100644 --- a/keter.cabal +++ b/keter.cabal @@ -1,6 +1,6 @@ cabal-version: 3.0 name: keter -version: 2.1.4 +version: 2.1.5 synopsis: Web application deployment manager, focusing on Haskell web frameworks. It mitigates downtime. diff --git a/src/Keter/Logger.hs b/src/Keter/Logger.hs index e3a9fab..103133e 100644 --- a/src/Keter/Logger.hs +++ b/src/Keter/Logger.hs @@ -48,7 +48,11 @@ createLoggerViaConfig KeterConfig{..} name = do defaultRotationSpec :: FilePath -> FL.FileLogSpec defaultRotationSpec dir = - FL.FileLogSpec dir defaultMaxTotal maxBound -- TODO: do we want to overwrite logs after a certain point? leaving this INT_MAX for now + FL.FileLogSpec + { log_file = dir + , log_file_size = defaultMaxTotal + , log_backup_number = 20 + } -- | The default total file size before for a log file before it needs to be rotated defaultMaxTotal :: Integer