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
|
@ -55,7 +55,7 @@ import Data.Time.Clock.POSIX
|
|||
#ifdef mingw32_HOST_OS
|
||||
import Data.Word (Word64)
|
||||
#else
|
||||
import System.Posix.Files
|
||||
import qualified System.Posix.Files as Posix
|
||||
#endif
|
||||
|
||||
data InodeCachePrim = InodeCachePrim FileID FileSize MTime
|
||||
|
@ -200,7 +200,7 @@ toInodeCache' (TSDelta getdelta) f s inode
|
|||
#ifdef mingw32_HOST_OS
|
||||
mtime <- utcTimeToPOSIXSeconds <$> getModificationTime (fromRawFilePath f)
|
||||
#else
|
||||
let mtime = modificationTimeHiRes s
|
||||
let mtime = Posix.modificationTimeHiRes s
|
||||
#endif
|
||||
return $ Just $ InodeCache $ InodeCachePrim inode sz (MTimeHighRes (mtime + highResTime delta))
|
||||
| otherwise = pure Nothing
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue