avoid warning when built with unix-compat 0.5.3
It re-exports modificationTimeHiRes, and provides a windows version. Might be worth using that windows version eventually, but I have not tested it.
This commit is contained in:
parent
0697dbe2d2
commit
887edeb1ad
3 changed files with 6 additions and 6 deletions
|
@ -21,7 +21,7 @@ import qualified Utility.RawFilePath as R
|
|||
|
||||
#if ! defined(mingw32_HOST_OS)
|
||||
import Utility.Touch
|
||||
import System.Posix.Files
|
||||
import qualified System.Posix.Files as Posix
|
||||
#endif
|
||||
|
||||
cmd :: Command
|
||||
|
@ -94,7 +94,7 @@ fixSymlink :: RawFilePath -> RawFilePath -> CommandPerform
|
|||
fixSymlink file link = do
|
||||
#if ! defined(mingw32_HOST_OS)
|
||||
-- preserve mtime of symlink
|
||||
mtime <- liftIO $ catchMaybeIO $ modificationTimeHiRes
|
||||
mtime <- liftIO $ catchMaybeIO $ Posix.modificationTimeHiRes
|
||||
<$> R.getSymbolicLinkStatus file
|
||||
#endif
|
||||
createWorkTreeDirectory (parentDir file)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue