mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fully update export db during import

Browse source 
This makes exporting immediately after import and merge be a no-op.
This commit is contained in:
Joey Hess 2019-02-27 15:29:41 -04:00
parent b1f10fbb4d
commit d0066d9a87
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 47 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Annex/Import.hs
View file

@ -139,7 +139,7 @@ buildImportCommit remote importtreeconfig importcommitconfig importable =
prevtree <- liftIO $ fromMaybe emptyTree
<$> Export.getExportTreeCurrent db
when (importedtree /= prevtree) $ do
Export.updateExportTree db prevtree importedtree
Export.updateExportDb db prevtree importedtree
liftIO $ Export.recordExportTreeCurrent db importedtree
-- TODO: addExportedLocation etc
Export.closeDb db