diff options
Diffstat (limited to 'Utility/Directory.hs')
-rwxr-xr-x | Utility/Directory.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/Directory.hs b/Utility/Directory.hs index 55d79a825..0dbba0584 100755 --- a/Utility/Directory.hs +++ b/Utility/Directory.hs @@ -10,7 +10,7 @@ module Utility.Directory where import System.IO.Error -#if 0 +#ifndef mingw32_HOST_OS import System.Posix.Files #endif import System.Directory @@ -61,7 +61,7 @@ dirContentsRecursive' (dir:dirs) = unsafeInterleaveIO $ do {- Moves one filename to another. - First tries a rename, but falls back to moving across devices if needed. -} moveFile :: FilePath -> FilePath -> IO () -#if 0 +#ifndef mingw32_HOST_OS moveFile src dest = tryIO (rename src dest) >>= onrename where onrename (Right _) = noop |