import Git.Sha
import qualified Git.Ref
import Command.Export (filterExport, getExportCommit, seekExport)
+import Command.Sync (syncBranch)
import qualified Data.Set as S
import qualified Data.ByteString as B
pushedbranches <- liftIO $
S.fromList . map snd . parseHookInput
<$> B.hGetContents stdin
- let waspushed = flip S.member pushedbranches
+ let waspushed b = S.member b pushedbranches
+ || S.member (syncBranch b) pushedbranches
case filter (waspushed . Git.Ref.branchRef . fst . snd) rbs of
[] -> return ()
rbs' -> forM_ rbs' $ \((r, b), _) -> go r b
* Working on `exportreeplus` branch which is groundwork for proxying to
exporttree=yes special remotes. Need to merge it to master.
-* `git-annex sync` hides output of git-annex post-retreive, which is a
- problem when it's doing things that are expensive.
-
* Handle cases where a single key is used by multiple files in the exported
tree. Need to download from the special remote in order to export
multiple copies to it. (In particular, this is needed when using