diff options
Diffstat (limited to 'Annex/Ingest.hs')
| -rw-r--r-- | Annex/Ingest.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Annex/Ingest.hs b/Annex/Ingest.hs index 4dabb1b58..5fdcd042c 100644 --- a/Annex/Ingest.hs +++ b/Annex/Ingest.hs @@ -128,9 +128,7 @@ ingestAdd' ld@(Just (LockedDown cfg source)) mk = do Just k -> do let f = keyFilename source if lockingFile cfg - then do - liftIO $ nukeFile f - addLink f k mic + then addLink f k mic else ifM isDirect ( do l <- calcRepo $ gitAnnexLink f k |