From 3abbb9b0f27b2c32ceda6a8d673e6dac87de42db Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 3 Aug 2015 11:27:53 -0400 Subject: addidential debugging --- Utility/DirWatcher/INotify.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Utility/DirWatcher/INotify.hs') 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 -- cgit v1.2.3