From 9a5f9fddc68475218ddb76027e00497f9a612984 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 18 Dec 2013 15:05:29 -0400 Subject: assistant: Fix OSX-specific bug that caused the startup scan to try to follow symlinks to other directories, and add their contents to the annex. --- Seek.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Seek.hs') diff --git a/Seek.hs b/Seek.hs index b2782fc36..a4e9a2fe5 100644 --- a/Seek.hs +++ b/Seek.hs @@ -61,7 +61,7 @@ withPathContents a params = map a . concat <$> liftIO (mapM get params) where get p = ifM (isDirectory <$> getFileStatus p) ( map (\f -> (f, makeRelative (parentDir p) f)) - <$> dirContentsRecursiveSkipping (".git" `isSuffixOf`) p + <$> dirContentsRecursiveSkipping (".git" `isSuffixOf`) True p , return [(p, takeFileName p)] ) -- cgit v1.2.3