mostly done with location log precaching

Some nice wins.

Command/Move.hs

@@ -56,12 +56,17 @@ data RemoveWhen = RemoveSafe | RemoveNever
 seek :: MoveOptions -> CommandSeek
 seek o = startConcurrency stages $ do
 	let go = start (fromToOptions o) (removeWhen o)
+	let seeker = AnnexedFileSeeker
+		{ seekAction = commandAction' go
+		, checkContentPresent = Nothing
+		, usesLocationLog = False
+		}
 	case batchOption o of
 		Batch fmt -> batchFilesMatching fmt
 			(whenAnnexed go . toRawFilePath)
 		NoBatch -> withKeyOptions (keyOptions o) False
 			(commandAction . startKey (fromToOptions o) (removeWhen o))
-			(withFilesInGitAnnex ww (commandAction' go))
+			(withFilesInGitAnnex ww seeker)
 			=<< workTreeItems ww (moveFiles o)
   where
 	stages = case fromToOptions o of