From 6465e83bc52df00ab13b17fb40914406221b136e Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Thu, 9 Apr 2026 23:28:50 +0200 Subject: Remove some debug prints --- src/Index.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Index.hs') 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) -- cgit v1.3