fixed all remaining build warnings on Windows

Utility/Daemon.hs

@@ -21,8 +21,6 @@ import Utility.LockFile
 #ifndef mingw32_HOST_OS
 import System.Posix
 import Control.Concurrent.Async
-#else
-import System.Exit
 #endif
 
 #ifndef mingw32_HOST_OS

Utility/DirWatcher/Win32Notify.hs

@@ -17,10 +17,10 @@ watchDir :: FilePath -> (FilePath -> Bool) -> Bool -> WatchHooks -> IO WatchMana
 watchDir dir ignored scanevents hooks = do
 	scan dir
 	wm <- initWatchManager
-	void $ watchDirectory wm dir True [Create, Delete, Modify, Move] handle
+	void $ watchDirectory wm dir True [Create, Delete, Modify, Move] dispatch
 	return wm
   where
-	handle evt
+	dispatch evt
 		| ignoredPath ignored (filePath evt) = noop
 		| otherwise = case evt of
 			(Deleted _ _)

Utility/InodeCache.hs

@@ -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.

Utility/UserInfo.hs

@@ -13,8 +13,10 @@ module Utility.UserInfo (
 	myUserGecos,
 ) where
 
-import Control.Applicative
 import System.PosixCompat
+#ifndef mingw32_HOST_OS
+import Control.Applicative
+#endif
 
 import Utility.Env