From 7d0d4d5b6ab2fd23c664742e5a1e7ed019b0c40d Mon Sep 17 00:00:00 2001 From: Joey Hess 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