diff options
Diffstat (limited to 'src/Index.hs')
| -rw-r--r-- | src/Index.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Index.hs b/src/Index.hs index c0f98dd..bdc3751 100644 --- a/src/Index.hs +++ b/src/Index.hs @@ -123,14 +123,14 @@ initIndex basedir toimport = do handle deb _ FN.Added{} = debounceClick deb handle deb chan ev@FN.Modified{} = do - atomicPrintS $ "path = " ++ show (FN.eventPath ev) ++ " fn = " ++ takeFileName (FN.eventPath ev) + -- atomicPrintS $ "path = " ++ show (FN.eventPath ev) ++ " fn = " ++ takeFileName (FN.eventPath ev) case parseFileName (takeFileName (FN.eventPath ev)) of Just ymd -> do cacheInvalidate cache (chan, ymd) debounceClick deb Nothing -> return () handle _ chan ev@FN.Removed{} = do - atomicPrintS $ "path = " ++ show (FN.eventPath ev) ++ " fn = " ++ takeFileName (FN.eventPath ev) + -- atomicPrintS $ "path = " ++ show (FN.eventPath ev) ++ " fn = " ++ takeFileName (FN.eventPath ev) case parseFileName (takeFileName (FN.eventPath ev)) of Just ymd -> do cacheInvalidate cache (chan, ymd) |