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