clean build warning on windows

This commit is contained in:
Joey Hess 2015-12-28 13:05:08 -04:00
parent 4808800f2d
commit da5d25a844
Failed to extract signature
3 changed files with 6 additions and 1 deletions

View file

@ -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.