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:
Joey Hess 2021-10-18 16:25:28 -04:00
parent 0697dbe2d2
commit 887edeb1ad
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 6 additions and 6 deletions

View file

@ -19,7 +19,7 @@ import Utility.InodeCache
import qualified Utility.RawFilePath as R
#if ! defined(mingw32_HOST_OS)
import Utility.Touch
import System.Posix.Files (modificationTimeHiRes)
import qualified System.Posix.Files as Posix
#endif
{- Populates a pointer file with the content of a key.
@ -66,7 +66,7 @@ depopulatePointerFile key file = do
-- by git in some cases.
liftIO $ maybe noop
(\t -> touch tmp' t False)
(fmap modificationTimeHiRes st)
(fmap Posix.modificationTimeHiRes st)
#endif
withTSDelta (liftIO . genInodeCache (toRawFilePath tmp))
maybe noop (restagePointerFile (Restage True) file) ic