mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

inotify reports paths relative to directory being watched

Browse source 
Sponsored-by: Dartmouth College's DANDI project
This commit is contained in:
Joey Hess 2021-08-13 14:51:15 -04:00
parent e07625df8a
commit 7503b8448b
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Annex/Verify.hs
View file

@ -199,13 +199,13 @@ tailVerify iv f finished =
inotifycreate i cont = INotify.addWatch i evs (P.takeDirectory f) $ \case
-- Ignore changes to other files in the directory.
INotify.Created { INotify.filePath = fn }
| fn /= f -> noop
| fn /= basef -> noop
INotify.MovedIn { INotify.filePath = fn }
| fn /= f -> noop
| fn /= basef -> noop
INotify.Opened { INotify.maybeFilePath = fn }
| fn /= Just f -> noop
| fn /= Just basef -> noop
INotify.Modified { INotify.maybeFilePath = fn }
| fn /= Just f -> noop
| fn /= Just basef -> noop
_ -> cont
where
evs =
@ -215,6 +215,7 @@ tailVerify iv f finished =
, INotify.Open
, INotify.Modify
]
basef = P.takeFileName f
go = INotify.withINotify $ \i -> do
h <- waitforfiletoexist i