clean build warning on windows
This commit is contained in:
parent
4808800f2d
commit
da5d25a844
3 changed files with 6 additions and 1 deletions
|
@ -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.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue