diff options
author | 2014-02-11 15:04:07 -0400 | |
---|---|---|
committer | 2014-02-11 15:04:07 -0400 | |
commit | bc8878f61615891353c984d18f36ff3fd23a1a90 (patch) | |
tree | 33154770b479deb0ed08371ba1028dcaacb1183c | |
parent | e594b4e165fa216c288630951b0fc65e9a79df86 (diff) |
fix windows build
-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 |