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

initremote works

Browse source
This commit is contained in:
Joey Hess 2011-03-29 14:55:59 -04:00
parent 05751d55cd
commit 0a4c610b4f
6 changed files with 85 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

8
RemoteClass.hs
View file

@ -24,7 +24,9 @@ data RemoteType a = RemoteType {
-- human visible type name
typename :: String,
-- generates remotes of this type
generator :: a (RemoteGenerator a)
generator :: a (RemoteGenerator a),
-- initializes or changes a remote
setup :: String -> M.Map String String -> a (M.Map String String)
}
{- An individual remote. -}
@ -48,9 +50,7 @@ data Remote a = Remote {
-- operation.
hasKeyCheap :: Bool,
-- a Remote can have a persistent configuration store
config :: Maybe (M.Map String String),
-- initializes or changes the config of a remote
setup :: M.Map String String -> a ()
config :: Maybe (M.Map String String)
}
instance Show (Remote a) where