diff options
-rw-r--r-- | Assistant/Threads/SanityChecker.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Assistant/Threads/SanityChecker.hs b/Assistant/Threads/SanityChecker.hs index 925fdbce6..b94d010e3 100644 --- a/Assistant/Threads/SanityChecker.hs +++ b/Assistant/Threads/SanityChecker.hs @@ -194,8 +194,13 @@ dailyCheck urlrenderer = do hourlyCheck :: Assistant () hourlyCheck = do +#ifndef mingw32_HOST_OS checkLogSize 0 +#else + noop +#endif +#ifndef mingw32_HOST_OS {- Rotate logs until log file size is < 1 mb. -} checkLogSize :: Int -> Assistant () checkLogSize n = do @@ -209,6 +214,7 @@ checkLogSize n = do checkLogSize $ n + 1 where filesize f = fromIntegral . fileSize <$> liftIO (getFileStatus f) +#endif oneMegabyte :: Int oneMegabyte = 1000000 |