From 0e03c638d44725e102bc18456ccc39bd71da493d Mon Sep 17 00:00:00 2001 From: fwcd Date: Fri, 1 Oct 2021 17:32:07 +0200 Subject: [PATCH] Improve file walk logging --- src/Curry/LanguageServer/Index/Store.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Curry/LanguageServer/Index/Store.hs b/src/Curry/LanguageServer/Index/Store.hs index bf3af87..f3e6d11 100644 --- a/src/Curry/LanguageServer/Index/Store.hs +++ b/src/Curry/LanguageServer/Index/Store.hs @@ -228,7 +228,7 @@ walkFilesIgnoringHidden = walkFilesWith $ WalkConfiguration ignorePaths <- filterM doesFileExist $ (fp ) <$> [".curry-language-server-ignore", ".gitignore"] ignored <- join <$> mapM readIgnoreFile ignorePaths unless (null ignored) $ - infoM "cls.indexStore" $ "In " ++ takeFileName fp ++ " ignoring " ++ show ignored + infoM "cls.indexStore" $ "In '" ++ takeFileName fp ++ "' ignoring " ++ show (G.decompile <$> ignored) return $ Just ignored , wcShouldIgnore = \ignored fp -> do isDir <- doesDirectoryExist fp @@ -236,7 +236,7 @@ walkFilesIgnoringHidden = walkFilesWith $ WalkConfiguration matchesFn pat = any (G.match pat) $ catMaybes [Just fn, if isDir then Just (fn ++ "/") else Nothing] matchingIgnores = filter matchesFn ignored unless (null matchingIgnores) $ - debugM "cls.indexStore" $ "Ignoring " ++ fn ++ " since it matches " ++ show matchingIgnores + debugM "cls.indexStore" $ "Ignoring '" ++ fn ++ "' since it matches " ++ show matchingIgnores return $ not (null matchingIgnores) || "." `isPrefixOf` fn }