diff options
Diffstat (limited to 'Utility/Directory.hs')
| -rw-r--r-- | Utility/Directory.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Utility/Directory.hs b/Utility/Directory.hs index fae33b5c2..fa9d14ff0 100644 --- a/Utility/Directory.hs +++ b/Utility/Directory.hs @@ -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. |