diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-09-19 14:20:47 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-09-19 14:20:47 -0400 |
commit | 7d0d4d5b6ab2fd23c664742e5a1e7ed019b0c40d (patch) | |
tree | 9a613e5c67bfcda40679d78f4c80f46194cc0ea3 /Annex | |
parent | c1cfb595d426ebbad6b9778d03ecaef544df776b (diff) |
git annex sync --content to exports
Assistant still todo.
This commit was sponsored by Boyd Stephen Smith Jr. on Patreon
Diffstat (limited to 'Annex')
-rw-r--r-- | Annex/Export.hs | 8 |
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 |