fix unused module import warnings when building on windows

Annex/FileMatcher.hs

@@ -35,8 +35,10 @@ import Types.FileMatcher
 import Git.FilePath
 import Types.Remote (RemoteConfig)
 import Annex.CheckAttr
-import Annex.Magic
 import Git.CheckAttr (unspecifiedAttr)
+#ifdef WITH_MAGICMIME
+import Annex.Magic
+#endif
 
 import Data.Either
 import qualified Data.Set as S

Build/DesktopFile.hs

@@ -22,10 +22,12 @@ import Assistant.Install.AutoStart
 import Assistant.Install.Menu
 
 import System.Environment
+#ifndef mingw32_HOST_OS 
 import System.PosixCompat.User
 import Data.Maybe
 import Control.Applicative
 import Prelude
+#endif
 
 systemwideInstall :: IO Bool
 #ifndef mingw32_HOST_OS 

Utility/Env/Set.hs

@@ -10,7 +10,6 @@
 module Utility.Env.Set where
 
 #ifdef mingw32_HOST_OS
-import qualified System.Environment as E
 import qualified System.SetEnv
 import Utility.Env
 #else

Utility/Gpg.hs

@@ -16,10 +16,10 @@ import System.Posix.Types
 import System.Posix.IO
 import Utility.Env
 import Utility.Env.Set
+import Utility.FileMode
 #else
 import Utility.Tmp
 #endif
-import Utility.FileMode
 import Utility.Format (decode_c)
 
 import Control.Concurrent

Utility/InodeCache.hs

@@ -48,7 +48,6 @@ import Data.Time.Clock.POSIX
 
 #ifdef mingw32_HOST_OS
 import Data.Word (Word64)
-import System.Directory
 #else
 import System.Posix.Files
 #endif

Utility/Path/Max.hs

@@ -11,13 +11,13 @@
 module Utility.Path.Max where
 
 import System.FilePath
-import Data.List
-import Control.Applicative
-import Prelude
 
 #ifndef mingw32_HOST_OS
 import Utility.Exception
 import System.Posix.Files
+import Data.List
+import Control.Applicative
+import Prelude
 #endif
 
 {- Maximum size to use for a file in a specified directory.