assistant adding of modified files in direct mode

Works with inotify, but I think in kqueue we don't get events
existing files that get modified.

Assistant/Threads/Committer.hs

@@ -147,7 +147,10 @@ delayaddDefault = Nothing
 handleAdds :: Maybe Seconds -> [Change] -> Assistant [Change]
 handleAdds delayadd cs = returnWhen (null incomplete) $ do
 	let (pending, inprocess) = partition isPendingAddChange incomplete
-	pending' <- findnew pending
+	direct <- liftAnnex isDirect
+	pending' <- if direct
+		then return pending
+		else findnew pending
 	(postponed, toadd) <- partitionEithers <$> safeToAdd delayadd pending' inprocess
 
 	unless (null postponed) $
@@ -155,7 +158,6 @@ handleAdds delayadd cs = returnWhen (null incomplete) $ do
 
 	returnWhen (null toadd) $ do
 		added <- catMaybes <$> forM toadd add
-		direct <- liftAnnex isDirect
 		if DirWatcher.eventsCoalesce || null added || direct
 			then return $ added ++ otherchanges
 			else do

Assistant/Threads/Watcher.hs

@@ -35,6 +35,7 @@ import qualified Backend
 import Annex.Content
 import Annex.CatFile
 import Git.Types
+import Config
 
 import Data.Bits.Utils
 import qualified Data.ByteString.Lazy as L
@@ -58,7 +59,8 @@ needLsof = error $ unlines
 watchThread :: NamedThread
 watchThread = NamedThread "Watcher" $ do
 	startup <- asIO1 startupScan
-	addhook <- hook onAdd
+	direct <- liftAnnex isDirect
+	addhook <- hook $ onAdd direct
 	delhook <- hook onDel
 	addsymlinkhook <- hook onAddSymlink
 	deldirhook <- hook onDelDir
@@ -124,8 +126,9 @@ runHandler handler file filestatus = void $ do
 			liftAnnex $ Annex.Queue.flushWhenFull
 			recordChange change
 
-onAdd :: Handler
-onAdd file filestatus
+onAdd :: Bool -> Handler
+onAdd isdirect file filestatus
+	| isdirect = pendingAddChange file
 	| maybe False isRegularFile filestatus = pendingAddChange file
 	| otherwise = noChange