mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build warnings on windows

Browse source
This commit is contained in:
Joey Hess 2024-03-26 13:11:53 -04:00
parent 7c5007279c
commit 418e97e847
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Utility/MoveFile.hs
View file

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

2
Utility/ThreadScheduler.hs
View file

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