From a6989fd5f518939b781d7fffda50840289954e59 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 28 Sep 2012 17:31:54 -0400 Subject: kqueue bugfix: apply pruner to changed files It already applied the pruner when traversing directories, so .git is excluded, but .gitignore was not. Now it is. --- Utility/Kqueue.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Utility/Kqueue.hs') diff --git a/Utility/Kqueue.hs b/Utility/Kqueue.hs index f44893195..4b72961b2 100644 --- a/Utility/Kqueue.hs +++ b/Utility/Kqueue.hs @@ -198,7 +198,8 @@ handleChange kq@(Kqueue _ _ dirmap pruner) fd olddirinfo = go =<< catchMaybeIO (getDirInfo $ dirName olddirinfo) where go (Just newdirinfo) = do - let changes = olddirinfo // newdirinfo + let changes = filter (not . pruner . changedFile) $ + olddirinfo // newdirinfo let (added, deleted) = partition isAdd changes -- Scan newly added directories to add to the map. -- cgit v1.2.3