clean build warning on windows

Utility/Directory.hs

@@ -134,11 +134,13 @@ moveFile src dest = tryIO (rename src dest) >>= onrename
 				_ <- tryIO $ removeFile tmp
 				throwM e'
 
+#ifndef mingw32_HOST_OS	
 	isdir f = do
 		r <- tryIO $ getFileStatus f
 		case r of
 			(Left _) -> return False
 			(Right s) -> return $ isDirectory s
+#endif
 
 {- Removes a file, which may or may not exist, and does not have to
  - be a regular file.

Utility/FileMode.hs

@@ -18,9 +18,10 @@ import System.PosixCompat.Types
 import Utility.PosixFiles
 #ifndef mingw32_HOST_OS
 import System.Posix.Files
+import Control.Monad.IO.Class (liftIO)
 #endif
+import Control.Monad.IO.Class (MonadIO)
 import Foreign (complement)
-import Control.Monad.IO.Class (liftIO, MonadIO)
 import Control.Monad.Catch
 
 import Utility.Exception

Utility/LockPool/LockHandle.hs

@@ -10,7 +10,9 @@
 module Utility.LockPool.LockHandle where
 
 import qualified Utility.LockPool.STM as P
+#ifndef mingw32_HOST_OS
 import Utility.LockPool.STM (LockFile)
+#endif
 
 import Control.Concurrent.STM
 import Control.Exception