diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-12-22 15:23:27 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-12-22 15:23:27 -0400 |
| commit | 56d1ad16c61d9e5abe1c123b3f791c9e5f641bd8 (patch) | |
| tree | 1c6b88f7e44b18551cc6090ba465e0375df03e44 /Command/Add.hs | |
| parent | 00e240f3803384ae8761f2d5bc95319351f4e0fa (diff) | |
finish v6 support for assistant
Seems to basically work now!
Diffstat (limited to 'Command/Add.hs')
| -rw-r--r-- | Command/Add.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Command/Add.hs b/Command/Add.hs index b1b830cbc..8a7db0a91 100644 --- a/Command/Add.hs +++ b/Command/Add.hs @@ -113,7 +113,9 @@ start file = ifAnnexed file addpresent add next $ next $ cleanup file key Nothing =<< inAnnex key perform :: FilePath -> CommandPerform -perform file = lockDown file >>= ingest >>= go +perform file = do + lockingfile <- not <$> isDirect + lockDown lockingfile file >>= ingest >>= go where go (Just key, cache) = next $ cleanup file key cache True go (Nothing, _) = stop |