Improve file walk logging

fwcd · Oct 1, 2021 · 3986ef2 · 3986ef2
1 parent c537cbd
commit 3986ef2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Curry/LanguageServer/Index/Store.hs b/src/Curry/LanguageServer/Index/Store.hs
@@ -228,15 +228,15 @@ 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
         let fn              = takeFileName fp
             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 (G.decompile <$> matchingIgnores)
         return $ not (null matchingIgnores) || "." `isPrefixOf` fn
     }