Bugfix to git annex add of an unlocked file in a subdir. Closes: #606579

This commit is contained in:
Joey Hess 2010-12-11 17:14:54 -04:00
parent eef009fa2a
commit 77e52a52dd
2 changed files with 4 additions and 1 deletions

View file

@ -151,7 +151,9 @@ withFilesUnlocked' typechanged a params = do
-- unlocked files have changed type from a symlink to a regular file
repo <- Annex.gitRepo
typechangedfiles <- liftIO $ mapM (typechanged repo) params
unlockedfiles <- liftIO $ filterM notSymlink $ foldl (++) [] typechangedfiles
unlockedfiles <- liftIO $ filterM notSymlink $
map (\f -> Git.workTree repo ++ "/" ++ f) $
foldl (++) [] typechangedfiles
unlockedfiles' <- filterFiles unlockedfiles
backendPairs a unlockedfiles'
withKeys :: SubCmdSeekStrings