diff options
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 |