diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-11-14 14:00:24 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-11-14 14:00:24 -0400 |
| commit | b9d5a5fd5e9631840857878935c3727217f12b9a (patch) | |
| tree | 80fb795b2be78e7532ebd13a6d87bcb5740f9f1d /Utility/PosixFiles.hs | |
| parent | 00e020705b44440d7f88393a5a15b7f3e844de62 (diff) | |
use unix-compat 0.5 on windows
Re-applying ac57659e61f9743aebd35258e89752ced0040f9f
Diffstat (limited to 'Utility/PosixFiles.hs')
| -rw-r--r-- | Utility/PosixFiles.hs | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/Utility/PosixFiles.hs b/Utility/PosixFiles.hs deleted file mode 100644 index 37253da29..000000000 --- a/Utility/PosixFiles.hs +++ /dev/null @@ -1,42 +0,0 @@ -{- POSIX files (and compatablity wrappers). - - - - This is like System.PosixCompat.Files, but with a few fixes. - - - - Copyright 2014 Joey Hess <id@joeyh.name> - - - - License: BSD-2-clause - -} - -{-# LANGUAGE CPP #-} -{-# OPTIONS_GHC -fno-warn-tabs #-} - -module Utility.PosixFiles ( - module X, - rename -) where - -import System.PosixCompat.Files as X hiding (rename) - -#ifndef mingw32_HOST_OS -import System.Posix.Files (rename) -#else -import qualified System.Win32.File as Win32 -import qualified System.Win32.HardLink as Win32 -#endif - -{- System.PosixCompat.Files.rename on Windows calls renameFile, - - so cannot rename directories. - - - - Instead, use Win32 moveFile, which can. It needs to be told to overwrite - - any existing file. -} -#ifdef mingw32_HOST_OS -rename :: FilePath -> FilePath -> IO () -rename src dest = Win32.moveFileEx src dest Win32.mOVEFILE_REPLACE_EXISTING -#endif - -{- System.PosixCompat.Files.createLink throws an error, but windows - - does support hard links. -} -#ifdef mingw32_HOST_OS -createLink :: FilePath -> FilePath -> IO () -createLink = Win32.createHardLink -#endif |