avoid double commits with inotify when direct mode file is created

Utility/FSEvents.hs

@@ -50,8 +50,13 @@ watchDir dir ignored hooks = do
 						)
 					else maybe (runhook delHook Nothing) handleadd
 						=<< getstatus (eventPath evt)
+			{- Add hooks are run when a file is modified for 
+			 - compatability with INotify, which calls the add
+			 - hook when a file is closed, and so tends to call
+			 - both add and modify for file modifications. -}
 			when (hasflag eventFlagItemModified && not (hasflag eventFlagItemIsDir)) $ do
 				ms <- getstatus $ eventPath evt
+				maybe noop handleadd ms
 				runhook modifyHook ms
 	  where
 		hasflag f = eventFlags evt .&. f /= 0