diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-02-01 21:58:47 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-02-01 22:02:19 -0400 |
| commit | 0e7984a79354135f265d2342608953104d15db2e (patch) | |
| tree | 6b8e59e6ca893cb05baff374c78accc4e284dfad /Command.hs | |
| parent | c77ac11acc10efc23acfa3d81e1deaac11cb724f (diff) | |
add check for unclean tree
Diffstat (limited to 'Command.hs')
| -rw-r--r-- | Command.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command.hs b/Command.hs index 0bbc6088c..601b58464 100644 --- a/Command.hs +++ b/Command.hs @@ -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 |