diff options
author | Joey Hess <joey@kitenet.net> | 2011-03-29 14:55:59 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-03-29 14:55:59 -0400 |
commit | 0a4c610b4fd78f7d1589117cb723d7d8c15c120c (patch) | |
tree | 21682bc0b6314d1f47b539cbecbd80794fed2020 /RemoteClass.hs | |
parent | 05751d55cd8002e6a2a2afc520622fb6697472e3 (diff) |
initremote works
Diffstat (limited to 'RemoteClass.hs')
-rw-r--r-- | RemoteClass.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/RemoteClass.hs b/RemoteClass.hs index 0482faac7..825197a4b 100644 --- a/RemoteClass.hs +++ b/RemoteClass.hs @@ -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 |