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

add check for unclean tree

Browse source
This commit is contained in:
Joey Hess 2011-02-01 21:58:47 -04:00
parent c77ac11acc
commit 0e7984a793
4 changed files with 20 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command.hs
View file

@ -147,7 +147,7 @@ withStrings a params = return $ map a params
withFilesToBeCommitted :: CommandSeekStrings
withFilesToBeCommitted a params = do
repo <- Annex.gitRepo
tocommit <- liftIO $ runPreserveOrder (Git.stagedFiles repo) params
tocommit <- liftIO $ runPreserveOrder (Git.stagedFilesNotDeleted repo) params
tocommit' <- filterFiles tocommit
return $ map a tocommit'
withFilesUnlocked :: CommandSeekBackendFiles