From 7d0d4d5b6ab2fd23c664742e5a1e7ed019b0c40d Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 19 Sep 2017 14:20:47 -0400
Subject: git annex sync --content to exports

Assistant still todo.

This commit was sponsored by Boyd Stephen Smith Jr. on Patreon
---
 Annex/Export.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'Annex')

diff --git a/Annex/Export.hs b/Annex/Export.hs
index 0afe3cdcc..6565c257b 100644
--- a/Annex/Export.hs
+++ b/Annex/Export.hs
@@ -10,8 +10,11 @@ module Annex.Export where
 import Annex
 import Annex.CatFile
 import Types.Key
+import Types.Remote
 import qualified Git
 
+import qualified Data.Map as M
+
 -- An export includes both annexed files and files stored in git.
 -- For the latter, a SHA1 key is synthesized.
 data ExportKey = AnnexKey Key | GitKey Key
@@ -33,3 +36,8 @@ exportKey sha = mk <$> catKey sha
 		, keyChunkSize = Nothing
 		, keyChunkNum = Nothing
 		}
+
+exportTree :: RemoteConfig -> Bool
+exportTree c = case M.lookup "exporttree" c of
+	Just "yes" -> True
+	_ -> False
-- 
cgit v1.2.3