mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

roll ChunkedEncryptable into Special and improve interface

Browse source 
Allow disabling progress displays, for eg, rsync.
This commit is contained in:
Joey Hess 2014-08-03 15:35:23 -04:00
parent e1e5853c94
commit 4b16989e98
13 changed files with 245 additions and 240 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Remote/Hook.hs
View file

@ -18,7 +18,6 @@ import Config
import Config.Cost
import Annex.UUID
import Remote.Helper.Special
import Remote.Helper.ChunkedEncryptable
import Utility.Env
type Action = String
@ -35,7 +34,7 @@ remote = RemoteType {
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote)
gen r u c gc = do
cst <- remoteCost gc expensiveRemoteCost
return $ Just $ chunkedEncryptableRemote c
return $ Just $ specialRemote c
(simplyPrepare $ store hooktype)
(simplyPrepare $ retrieve hooktype)
Remote {