diff options
Diffstat (limited to 'Logs')
| -rw-r--r-- | Logs/Export.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Logs/Export.hs b/Logs/Export.hs index 3ba77cd24..2327d70d1 100644 --- a/Logs/Export.hs +++ b/Logs/Export.hs @@ -84,7 +84,7 @@ recordExportBeginning remoteuuid newtree = do . M.lookup u . simpleMap . parseLogNew parseExportLog <$> Annex.Branch.get exportLog - let new = old { incompleteExportedTreeish = newtree:incompleteExportedTreeish old } + let new = old { incompleteExportedTreeish = nub (newtree:incompleteExportedTreeish old) } Annex.Branch.change exportLog $ showLogNew formatExportLog . changeLog c u (ExportLog new remoteuuid) |