fixed all remaining build warnings on Windows

This commit is contained in:
Joey Hess 2014-12-29 17:25:59 -04:00
parent 67828b1c86
commit c9a3e80d32
13 changed files with 23 additions and 20 deletions

View file

@ -7,6 +7,7 @@
-}
{-# LANGUAGE CPP #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Utility.InodeCache (
InodeCache,
@ -182,7 +183,10 @@ checkSentinalFile s = do
SentinalStatus (not unchanged) tsdelta
where
#ifdef mingw32_HOST_OS
unchanged = oldinode == newinode && oldsize == newsize
-- Since mtime can appear to change when the time zone is
-- changed in windows, we cannot look at the mtime for the
-- sentinal file.
unchanged = oldinode == newinode && oldsize == newsize && (newmtime == newmtime)
tsdelta = TSDelta $ do
-- Run when generating an InodeCache,
-- to get the current delta.