summaryrefslogtreecommitdiff
path: root/Command.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-06-29 11:42:00 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-06-29 11:42:00 -0400
commitb3aaf980e460c2287fc1ef2b262685b1879e6ed0 (patch)
treef7f02ff6350cbf7f4470c696b5a6366c88350fa5 /Command.hs
parentfb7663ceb86b309dd223ebc113c8b586955a0e03 (diff)
--force will cause add, etc, to operate on ignored files.
Diffstat (limited to 'Command.hs')
-rw-r--r--Command.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Command.hs b/Command.hs
index 228c1f40e..ee81bd0f6 100644
--- a/Command.hs
+++ b/Command.hs
@@ -143,7 +143,8 @@ withFilesMissing a params = do
withFilesNotInGit :: CommandSeekBackendFiles
withFilesNotInGit a params = do
repo <- Annex.gitRepo
- newfiles <- liftIO $ runPreserveOrder (Git.notInRepo repo) params
+ force <- Annex.getState Annex.force
+ newfiles <- liftIO $ runPreserveOrder (Git.notInRepo repo force) params
newfiles' <- filterFiles newfiles
backendPairs a newfiles'
withWords :: CommandSeekWords