mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix windows build

Browse source
This commit is contained in:
Joey Hess 2014-02-11 15:04:07 -04:00
parent 2ed728e7e6
commit 30a474b309
Failed to extract signature
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Assistant/Threads/SanityChecker.hs
View file

@ -194,8 +194,13 @@ dailyCheck urlrenderer = do
hourlyCheck :: Assistant () hourlyCheck :: Assistant ()
hourlyCheck = do hourlyCheck = do
#ifndef mingw32_HOST_OS
checkLogSize 0 checkLogSize 0
#else
noop
#endif
#ifndef mingw32_HOST_OS
{- Rotate logs until log file size is < 1 mb. -} {- Rotate logs until log file size is < 1 mb. -}
checkLogSize :: Int -> Assistant () checkLogSize :: Int -> Assistant ()
checkLogSize n = do checkLogSize n = do
@ -209,6 +214,7 @@ checkLogSize n = do
checkLogSize $ n + 1 checkLogSize $ n + 1
where where
filesize f = fromIntegral . fileSize <$> liftIO (getFileStatus f) filesize f = fromIntegral . fileSize <$> liftIO (getFileStatus f)
#endif
oneMegabyte :: Int oneMegabyte :: Int
oneMegabyte = 1000000 oneMegabyte = 1000000