avoid grafting in an imported tree when it's not changed

This just avoids some churn in the git-annex branch.
This commit is contained in:
Joey Hess 2020-12-23 14:31:14 -04:00
parent 7916fc98a3
commit f8aadbfb9b
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -148,7 +148,8 @@ recordExportUnderway remoteuuid ec = do
-- interrupted exports.
recordExport :: UUID -> Git.Ref -> ExportChange -> Annex ()
recordExport remoteuuid tree ec = do
recordExportTreeish tree
when (oldTreeish ec /= [tree]) $
recordExportTreeish tree
recordExportUnderway remoteuuid ec
parseExportLog :: L.ByteString -> MapLog ExportParticipants Exported