fix fsevents rename handling

For both files and whole directories; also tested on moving whole dirs out
of and into the working copy.

1 files changed, 16 insertions, 11 deletions

diff --git a/Utility/FSEvents.hs b/Utility/FSEvents.hs
index fc5dc0a7a..97431c159 100644
--- a/Utility/FSEvents.hs
+++ b/Utility/FSEvents.hs
@@ -38,23 +38,28 @@ watchDir dir ignored hooks = do
 				if hasflag eventFlagItemIsDir
 					then runhook delDirHook Nothing
 					else runhook delHook Nothing
-			{- TODO deal with moving whole directories -}
-			when (hasflag eventFlagItemCreated || (hasflag eventFlagItemRenamed && not (hasflag eventFlagItemRemoved))) $ do
-				ms <- getstatus $ eventPath evt
-				case ms of
-					Nothing -> noop
-					Just s
-						| Files.isSymbolicLink s -> 
-							runhook addSymlinkHook ms
-						| Files.isRegularFile s ->
-							runhook addHook ms
-						| otherwise -> noop
+			when (hasflag eventFlagItemCreated) $
+				maybe noop handleadd =<< getstatus (eventPath evt)
+			{- When a file or dir is renamed, a rename event is
+			 - received for both its old and its new name. -}
+			when (hasflag eventFlagItemRenamed) $
+				if hasflag eventFlagItemIsDir
+					then ifM (doesDirectoryExist $ eventPath evt)
+						( scan $ eventPath evt
+						, runhook delDirHook Nothing
+						)
+					else maybe (runhook delHook Nothing) handleadd
+						=<< getstatus (eventPath evt)
 			when (hasflag eventFlagItemModified && not (hasflag eventFlagItemIsDir)) $ do
 				ms <- getstatus $ eventPath evt
 				runhook modifyHook ms
 	  where
 		hasflag f = eventFlags evt .&. f /= 0
 		runhook h s = maybe noop (\a -> a (eventPath evt) s) (h hooks)
+		handleadd s
+			| Files.isSymbolicLink s = runhook addSymlinkHook $ Just s
+			| Files.isRegularFile s = runhook addHook $ Just s
+			| otherwise = noop
 	
 	scan d = unless (ignoredPath ignored d) $
 		mapM_ go =<< dirContentsRecursive d