diff options
Diffstat (limited to 'Command')
-rw-r--r-- | Command/Add.hs | 6 | ||||
-rw-r--r-- | Command/Smudge.hs | 6 |
2 files changed, 10 insertions, 2 deletions
diff --git a/Command/Add.hs b/Command/Add.hs index 8a7db0a91..b88dc52f7 100644 --- a/Command/Add.hs +++ b/Command/Add.hs @@ -115,7 +115,11 @@ start file = ifAnnexed file addpresent add perform :: FilePath -> CommandPerform perform file = do lockingfile <- not <$> isDirect - lockDown lockingfile file >>= ingest >>= go + let cfg = LockDownConfig + { lockingFile = lockingfile + , hardlinkFileTmp = True + } + lockDown cfg file >>= ingest >>= go where go (Just key, cache) = next $ cleanup file key cache True go (Nothing, _) = stop diff --git a/Command/Smudge.hs b/Command/Smudge.hs index 8b7d848d2..1ca3de2c3 100644 --- a/Command/Smudge.hs +++ b/Command/Smudge.hs @@ -72,7 +72,7 @@ clean file = do then liftIO $ B.hPut stdout b else ifM (shouldAnnex file) ( liftIO . emitPointer - =<< go =<< ingest =<< lockDown False file + =<< go =<< ingest =<< lockDown cfg file , liftIO $ B.hPut stdout b ) stop @@ -81,6 +81,10 @@ clean file = do logStatus k InfoPresent return k go _ = error "could not add file to the annex" + cfg = LockDownConfig + { lockingFile = False + , hardlinkFileTmp = False + } shouldAnnex :: FilePath -> Annex Bool shouldAnnex file = do |