addidential debugging

This commit is contained in:
Joey Hess 2015-08-03 11:27:53 -04:00
parent d986d24494
commit 8a547e82b1

View file

@ -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