diff options
Diffstat (limited to 'Utility/InodeCache.hs')
-rw-r--r-- | Utility/InodeCache.hs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/Utility/InodeCache.hs b/Utility/InodeCache.hs index 9a21c63..b697ab3 100644 --- a/Utility/InodeCache.hs +++ b/Utility/InodeCache.hs @@ -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 @@ -300,11 +300,6 @@ instance Arbitrary MTime where , (50, MTimeHighRes <$> arbitrary) ] -#ifdef mingw32_HOST_OS -instance Arbitrary FileID where - arbitrary = fromIntegral <$> (arbitrary :: Gen Word64) -#endif - prop_read_show_inodecache :: InodeCache -> Bool prop_read_show_inodecache c = case readInodeCache (showInodeCache c) of Nothing -> False |