fix build warnings on windows

Utility/MoveFile.hs

@@ -64,7 +64,8 @@ moveFile src dest = tryIO (R.rename src dest) >>= onrename
 				]
 			let e' = e
 #else
-			r <- tryIO $ copyFile (fromRawFilePath src) tmp
+			r <- tryIO $ copyright
+				=<< copyFile (fromRawFilePath src) tmp
 			let (ok, e') = case r of
 				Left err -> (False, err)
 				Right _ -> (True, e)

Utility/ThreadScheduler.hs

@@ -18,9 +18,9 @@ module Utility.ThreadScheduler (
 ) where
 
 import Control.Monad
-import Control.Concurrent
 import qualified Control.Concurrent.Thread.Delay as Unbounded
 #ifndef mingw32_HOST_OS
+import Control.Concurrent
 import Control.Monad.IfElse
 import System.Posix.IO
 #endif