From 8a547e82b1cf4b9ab455a272b7ef6909afea7509 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 3 Aug 2015 11:27:53 -0400 Subject: [PATCH] addidential debugging --- Utility/DirWatcher/INotify.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Utility/DirWatcher/INotify.hs b/Utility/DirWatcher/INotify.hs index 76f8ab890f..4d11b95a8d 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