Remove some debug prints

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)