optimise direct mode startup scan

A recent change made existing symlinks be re-staged. That does not need to
be done during the startup scan though.

1 files changed, 6 insertions, 3 deletions

diff --git a/Assistant/Threads/Watcher.hs b/Assistant/Threads/Watcher.hs
index 58c4c2e30..88efa39d8 100644
--- a/Assistant/Threads/Watcher.hs
+++ b/Assistant/Threads/Watcher.hs
@@ -203,9 +203,12 @@ onAddDirect symlinkssupported matcher file fs = do
 				 - really modified, but it might have
 				 - just been deleted and been put back,
 				 - so it symlink is restaged to make sure. -}
-				( do
-					link <- liftAnnex $ inRepo $ gitAnnexLink file key
-					addLink file link (Just key)
+				( ifM (scanComplete <$> getDaemonStatus)
+					( do
+						link <- liftAnnex $ inRepo $ gitAnnexLink file key
+						addLink file link (Just key)
+					, noChange
+					)
 				, guardSymlinkStandin (Just key) $ do
 					debug ["changed direct", file]
 					liftAnnex $ changedDirect key file