fixed all remaining build warnings on Windows

Annex/Init.hs

@@ -32,14 +32,14 @@ import Config
 import Annex.Direct
 import Annex.Content.Direct
 import Annex.Environment
-import Annex.Perms
 import Backend
+import Annex.Hook
+import Upgrade
 #ifndef mingw32_HOST_OS
 import Utility.UserInfo
 import Utility.FileMode
+import Annex.Perms
 #endif
-import Annex.Hook
-import Upgrade
 
 genDescription :: Maybe String -> Annex String
 genDescription (Just d) = return d

Annex/Ssh.hs

@@ -35,9 +35,9 @@ import Config.Files
 import Utility.Env
 import Types.CleanupActions
 import Annex.Index (addGitEnv)
-import Utility.LockFile
 #ifndef mingw32_HOST_OS
 import Annex.Perms
+import Utility.LockFile
 #endif
 
 {- Generates parameters to ssh to a given host (or user@host) on a given

Assistant/Install.hs

@@ -22,7 +22,9 @@ import Utility.SshConfig
 import Utility.OSX
 #else
 import Utility.FreeDesktop
+#ifdef linux_HOST_OS
 import Utility.UserInfo
+#endif
 import Assistant.Install.Menu
 #endif
 

Assistant/Threads/NetWatcher.hs

@@ -18,11 +18,11 @@ import Assistant.DaemonStatus
 import Utility.NotificationBroadcaster
 
 #if WITH_DBUS
+import Assistant.RemoteControl
 import Utility.DBus
 import DBus.Client
 import DBus
 import Assistant.NetMessager
-import Assistant.RemoteControl
 #else
 #ifdef linux_HOST_OS
 #warning Building without dbus support; will poll for network connection changes

Assistant/Threads/SanityChecker.hs

@@ -40,15 +40,15 @@ import Assistant.Unused
 import Logs.Unused
 import Logs.Transfer
 import Config.Files
-import Utility.DiskFree
+import Types.Key (keyBackendName)
 import qualified Annex
 #ifdef WITH_WEBAPP
 import Assistant.WebApp.Types
 #endif
 #ifndef mingw32_HOST_OS
 import Utility.LogFile
+import Utility.DiskFree
 #endif
-import Types.Key (keyBackendName)
 
 import Data.Time.Clock.POSIX
 import qualified Data.Text as T

Assistant/WebApp/Configurators/Ssh.hs

@@ -34,10 +34,6 @@ import Utility.FileMode
 import Utility.ThreadScheduler
 import Utility.Env
 
-#ifdef mingw32_HOST_OS
-import Utility.Rsync
-#endif
-
 import qualified Data.Text as T
 import qualified Data.Map as M
 import Network.Socket

Assistant/WebApp/Configurators/XMPP.hs

@@ -24,10 +24,10 @@ import Assistant.DaemonStatus
 import Assistant.WebApp.RepoList
 import Assistant.WebApp.Configurators
 import Assistant.XMPP
-#endif
 import qualified Git.Remote.Remove
 import Remote.List
 import Creds
+#endif
 
 #ifdef WITH_XMPP
 import Network.Protocol.XMPP

Remote/Git.hs

@@ -358,7 +358,9 @@ copyFromRemote' r key file dest
 	| not $ Git.repoIsUrl (repo r) = guardUsable (repo r) (return False) $ do
 		params <- Ssh.rsyncParams r Download
 		u <- getUUID
+#ifndef mingw32_HOST_OS
 		hardlink <- annexHardLink <$> Annex.getGitConfig
+#endif
 		-- run copy from perspective of remote
 		onLocal r $ do
 			ensureInitialized

Test.hs

@@ -116,13 +116,12 @@ main ps = do
 #if MIN_VERSION_optparse_applicative(0,10,0)
 		case execParserPure pprefs pinfo args of
 			(Options.Applicative.Failure failure) -> do
-				let (msg, _exit) = renderFailure failure progdesc
+				let (msg, _exit) = renderFailure failure "git-annex test"
 				error msg
 			v -> handleParseResult v
 #else
 		handleParseResult $ execParserPure pprefs pinfo args
 #endif
-	progdesc = "git-annex test"
 
 ingredients :: [Ingredient]
 ingredients =

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