high-res mtimes

Cache high-resolution mtimes for improved detection of modified files in v7
(and direct mode).

Including on Windows.

With back-compat support so old low-res mtimes won't break anything, and
so the new information also won't break old versions of git-annex.

Command/Fix.hs

@@ -18,8 +18,10 @@ import Annex.Content
 import Annex.Perms
 import qualified Annex.Queue
 import qualified Database.Keys
+
 #if ! defined(mingw32_HOST_OS)
 import Utility.Touch
+import System.Posix.Files
 #endif
 
 cmd :: Command
@@ -93,7 +95,7 @@ fixSymlink file link = do
 	liftIO $ do
 #if ! defined(mingw32_HOST_OS)
 		-- preserve mtime of symlink
-		mtime <- catchMaybeIO $ modificationTimeHighRes
+		mtime <- catchMaybeIO $ modificationTimeHiRes
 			<$> getSymbolicLinkStatus file
 #endif
 		createDirectoryIfMissing True (parentDir file)

Command/Smudge.hs

@@ -96,8 +96,8 @@ clean file = do
 				then B.length b `seq` return ()
 				else liftIO $ hClose stdin
 
-			-- Optimization when the file is already annexed
-			-- and is unmodified.
+			-- Optimization for the case when the file is already
+			-- annexed and is unmodified.
 			case oldkey of
 				Nothing -> doingest oldkey
 				Just ko -> ifM (isUnmodifiedCheap ko file)