fix bug that turned files already in git into symlinks

This requires a relatively expensive test at file add time to see if it's
in git already. But it can be optimised to only happen during the startup
scan.

1 files changed, 2 insertions, 0 deletions

diff --git a/Utility/Inotify.hs b/Utility/Inotify.hs
index ad0c21b22..5ed016c44 100644
--- a/Utility/Inotify.hs
+++ b/Utility/Inotify.hs
@@ -64,6 +64,8 @@ watchDir :: INotify -> FilePath -> (FilePath -> Bool) -> WatchHooks -> IO ()
 watchDir i dir ignored hooks
 	| ignored dir = noop
 	| otherwise = do
+		-- Use a lock to make sure events generated during initial
+		-- scan come before real inotify events.
 		lock <- newLock
 		let handler event = withLock lock (void $ go event)
 		void (addWatch i watchevents dir handler)