summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-02-11 15:04:07 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-02-11 15:04:07 -0400
commitbc8878f61615891353c984d18f36ff3fd23a1a90 (patch)
tree33154770b479deb0ed08371ba1028dcaacb1183c
parente594b4e165fa216c288630951b0fc65e9a79df86 (diff)
fix windows build
-rw-r--r--Assistant/Threads/SanityChecker.hs6
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