diff options
author | Joey Hess <joey@kitenet.net> | 2011-03-29 17:57:20 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-03-29 17:57:20 -0400 |
commit | 0782d7006365e82c0040b25364fa452b0e00e527 (patch) | |
tree | df405b78e2551df52652083e7bb36a18241a1a23 /RemoteClass.hs | |
parent | 72f94cc42eca1a6aaa7cc95daf423915761805ff (diff) |
copy --to S3 works
Diffstat (limited to 'RemoteClass.hs')
-rw-r--r-- | RemoteClass.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/RemoteClass.hs b/RemoteClass.hs index e16cbdbb0..de4c281f4 100644 --- a/RemoteClass.hs +++ b/RemoteClass.hs @@ -12,14 +12,17 @@ module RemoteClass where import Control.Exception import Data.Map as M +import qualified GitRepo as Git import Key {- There are different types of remotes. -} data RemoteType a = RemoteType { -- human visible type name typename :: String, - -- generates remotes of this type - generator :: a [Remote a], + -- enumerates remotes of this type + enumerate :: a [Git.Repo], + -- generates a remote of this type + generate :: Git.Repo -> Maybe (M.Map String String) -> a (Remote a), -- initializes or changes a remote setup :: String -> M.Map String String -> a (M.Map String String) } |