From 418e97e847f2de0cca96dc8fb62c8fb49070023c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 26 Mar 2024 13:11:53 -0400 Subject: [PATCH] fix build warnings on windows --- Utility/MoveFile.hs | 3 ++- Utility/ThreadScheduler.hs | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/Utility/MoveFile.hs b/Utility/MoveFile.hs index c04dbea6d0..9f17bc87cc 100644 --- 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 245605b0b4..9e0b620f87 100644 --- 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 -- 2.30.2