From 15bd7d57caa8ebb5fcef0bcde1dac52e6a2a889a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 23 Apr 2019 14:27:43 -0400 Subject: [PATCH] info: Show when a remote is configured with importtree --- CHANGELOG | 1 + Remote/Helper/ExportImport.hs | 3 +++ 2 files changed, 4 insertions(+) diff --git a/CHANGELOG b/CHANGELOG index 291a45ad8a..8079d75ab0 100644 --- a/CHANGELOG +++ b/CHANGELOG @@ -23,6 +23,7 @@ git-annex (7.20190323) UNRELEASED; urgency=medium a special remote. Especially useful when you want to reuse the name of an old remote for something new. * Drop support for building with aws older than 0.14. + * info: Show when a remote is configured with importtree. -- Joey Hess Tue, 09 Apr 2019 14:07:53 -0400 diff --git a/Remote/Helper/ExportImport.hs b/Remote/Helper/ExportImport.hs index 6b81ba6ee0..84d3b7c6da 100644 --- a/Remote/Helper/ExportImport.hs +++ b/Remote/Helper/ExportImport.hs @@ -177,6 +177,9 @@ adjustExportImport r = case M.lookup "exporttree" (config r) of then checkPresent r' else \k -> anyM (checkpresent k) =<< getexportlocs exportdbv k + , getInfo = do + is <- getInfo r' + return (is++[("import", "yes")]) } isexport dbv = return $ r