diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-02-20 14:12:55 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-02-20 14:12:55 -0400 |
| commit | b2a46e18236e7cc8ff864bc4fed3b190efb161e5 (patch) | |
| tree | 401e26f43c812ad30e9d5aa376c219f485bf2f24 /Command/Add.hs | |
| parent | 27c02b4732c8087ba7d123f49ea2c10c7366cd4a (diff) | |
make adding modified files work on crippled filesystems
Diffstat (limited to 'Command/Add.hs')
| -rw-r--r-- | Command/Add.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Command/Add.hs b/Command/Add.hs index 33adc8efc..18dc65031 100644 --- a/Command/Add.hs +++ b/Command/Add.hs @@ -31,11 +31,14 @@ import Utility.InodeCache def :: [Command] def = [notBareRepo $ command "add" paramPaths seek "add files to annex"] -{- Add acts on both files not checked into git yet, and unlocked files. -} +{- Add acts on both files not checked into git yet, and unlocked files. + - + - In direct mode, it acts on any files that have changed. -} seek :: [CommandSeek] seek = [ withFilesNotInGit start - , withFilesUnlocked start + , whenNotDirect $ withFilesUnlocked start + , whenDirect $ withFilesMaybeModified start ] {- The add subcommand annexes a file, generating a key for it using a |