fix build warnings on windows

diff --git a/Utility/MoveFile.hs b/Utility/MoveFile.hs
index c04dbea6d06dc4465585f3c5ab56bd1e1346b448..9f17bc87cc67aa59ff4e22aa14a6a130e7a6e8b8 100644 (file)
--- a/Utility/MoveFile.hs
+++ b/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)

diff --git a/Utility/ThreadScheduler.hs b/Utility/ThreadScheduler.hs
index 245605b0b4f6e8a4992a20f148f5e8b616c6ba3a..9e0b620f87b7a56be2200cac9ee0ad7433b23342 100644 (file)
--- a/Utility/ThreadScheduler.hs
+++ b/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