import: Skip .git directories.

1 files changed, 2 insertions, 1 deletions

diff --git a/Seek.hs b/Seek.hs
index 85b266d49..d140e09e8 100644
--- a/Seek.hs
+++ b/Seek.hs
@@ -60,7 +60,8 @@ withPathContents :: ((FilePath, FilePath) -> CommandStart) -> CommandSeek
 withPathContents a params = map a . concat <$> liftIO (mapM get params)
   where
 	get p = ifM (isDirectory <$> getFileStatus p)
-		( map (\f -> (f, makeRelative (parentDir p) f)) <$> dirContentsRecursive p
+		( map (\f -> (f, makeRelative (parentDir p) f))
+			<$> dirContentsRecursiveSkipping (".git" `isSuffixOf`) p
 		, return [(p, takeFileName p)]
 		)