mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

bugfix

Browse source
This commit is contained in:
Joey Hess 2010-10-16 23:36:45 -04:00
parent 20b447782a
commit aaee8e231f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Commands.hs
View file

@ -57,7 +57,7 @@ findWanted FilesNotInGit params repo = do
return $ filter notstate $ foldl (++) [] files return $ filter notstate $ foldl (++) [] files
where where
-- never include files in the state directory -- never include files in the state directory
notstate f = f /= take (length stateLoc) f notstate f = stateLoc /= take (length stateLoc) f
findWanted FilesInGit params repo = do findWanted FilesInGit params repo = do
files <- mapM (Git.inRepo repo) params files <- mapM (Git.inRepo repo) params
return $ foldl (++) [] files return $ foldl (++) [] files