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