diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-08-03 11:27:27 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-08-03 11:27:27 -0400 |
commit | 50f5d1a95b4b6fd130f4b7f6a07f51c35907e255 (patch) | |
tree | f382ea2170a59c264c90f0e5c9587cbb30a6787d /Utility | |
parent | 4d9725c4be4cf4078201c066a6088c1476072ab3 (diff) |
analysis; forwarded
Diffstat (limited to 'Utility')
-rw-r--r-- | Utility/DirWatcher/INotify.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Utility/DirWatcher/INotify.hs b/Utility/DirWatcher/INotify.hs index 4d11b95a8..76f8ab890 100644 --- a/Utility/DirWatcher/INotify.hs +++ b/Utility/DirWatcher/INotify.hs @@ -102,7 +102,8 @@ watchDir i dir ignored scanevents hooks | Files.isSymbolicLink s -> when (hashook addSymlinkHook) $ runhook addSymlinkHook f ms - | Files.isRegularFile s -> + | Files.isRegularFile s -> do + print ("ADDED") when (hashook addHook) $ runhook addHook f ms _ -> noop |