summaryrefslogtreecommitdiff
path: root/Annex
diff options
context:
space:
mode:
Diffstat (limited to 'Annex')
-rw-r--r--Annex/Export.hs8
1 files changed, 8 insertions, 0 deletions
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