From 28e46d947a340ec9bc6288c2375e750b508761f9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 11 Mar 2019 14:09:46 -0400 Subject: [PATCH] avoid sync --content trying to sendKey to exporttree remotes --- Command/Sync.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Command/Sync.hs b/Command/Sync.hs index c37375be99..a9487582e5 100644 --- a/Command/Sync.hs +++ b/Command/Sync.hs @@ -171,7 +171,7 @@ seek o = allowConcurrentOutput $ do let gitremotes = filter Remote.gitSyncableRemote remotes dataremotes <- filter (\r -> Remote.uuid r /= NoUUID) <$> filterM (not <$$> liftIO . getDynamicConfig . remoteAnnexIgnore . Remote.gitconfig) remotes - let exportremotes = filter (exportTree . Remote.config) dataremotes + let (exportremotes, keyvalueremotes) = partition (exportTree . Remote.config) dataremotes let importremotes = filter (importTree . Remote.config) dataremotes if cleanupOption o @@ -199,7 +199,7 @@ seek o = allowConcurrentOutput $ do exportedcontent <- withbranch $ seekExportContent (Just o) exportremotes syncedcontent <- withbranch $ - seekSyncContent o dataremotes + seekSyncContent o keyvalueremotes -- Transferring content can take a while, -- and other changes can be pushed to the -- git-annex branch on the remotes in the