From 4efc26ca6c6bcdcdcc9f2a5ee67e2f52177a7d60 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 16 May 2016 15:11:14 -0400 Subject: [PATCH] move keys db closure to AutoMerge This makes git-annex sync also do it, which makes sure that the keys db info is fresh when doing a sync --content. --- Annex/AutoMerge.hs | 11 +++++++++-- Assistant/Threads/Merger.hs | 7 ------- 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/Annex/AutoMerge.hs b/Annex/AutoMerge.hs index 26f58a98e3..06efdb7f5c 100644 --- a/Annex/AutoMerge.hs +++ b/Annex/AutoMerge.hs @@ -52,8 +52,15 @@ autoMergeFrom branch currbranch mergeconfig commitmode = do where go old = ifM isDirect ( mergeDirect currbranch old branch (resolveMerge old branch False) mergeconfig commitmode - , inRepo (Git.Merge.merge branch mergeconfig commitmode) - <||> (resolveMerge old branch False <&&> commitResolvedMerge commitmode) + , do + r <- inRepo (Git.Merge.merge branch mergeconfig commitmode) + <||> (resolveMerge old branch False <&&> commitResolvedMerge commitmode) + -- Merging can cause new associated files to appear + -- and the smudge filter will add them to the database. + -- To ensure that this process sees those changes, + -- close the database if it was open. + Database.Keys.closeDb + return r ) {- Resolves a conflicted merge. It's important that any conflicts be diff --git a/Assistant/Threads/Merger.hs b/Assistant/Threads/Merger.hs index 0080ef9647..521e5bda6b 100644 --- a/Assistant/Threads/Merger.hs +++ b/Assistant/Threads/Merger.hs @@ -19,7 +19,6 @@ import qualified Annex.Branch import qualified Git import qualified Git.Branch import qualified Command.Sync -import qualified Database.Keys import Annex.TaggedPush import Remote (remoteFromUUID) @@ -90,12 +89,6 @@ onChange file currbranch mergeConfig Git.Branch.AutomaticCommit changedbranch - -- Merging can cause new associated files - -- to appear and the smudge filter will - -- add them to the database. To ensure that - -- this process sees those changes, close - -- the database if it was open. - liftAnnex $ Database.Keys.closeDb mergecurrent _ = noop handleDesynced = case fromTaggedBranch changedbranch of