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.
This commit is contained in:
parent
95db595e91
commit
cc5140d295
2 changed files with 10 additions and 5 deletions
|
@ -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
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue