diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-04-15 15:09:36 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-04-15 15:09:36 -0400 |
| commit | 1e84dab4c8def55699fc1b673bd0abd0f5dc4aee (patch) | |
| tree | 8565b776617ee1412d7fcaddcef215570745b73a /Remote/Bup.hs | |
| parent | f7018e47e48cc61ef6e84adcff89f892cee2c8db (diff) | |
RemoteConfig type
Diffstat (limited to 'Remote/Bup.hs')
| -rw-r--r-- | Remote/Bup.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Bup.hs b/Remote/Bup.hs index 916afeb40..66c78970c 100644 --- a/Remote/Bup.hs +++ b/Remote/Bup.hs @@ -39,7 +39,7 @@ remote = RemoteType { setup = bupSetup } -gen :: Git.Repo -> UUID -> Maybe (M.Map String String) -> Annex (Remote Annex) +gen :: Git.Repo -> UUID -> Maybe RemoteConfig -> Annex (Remote Annex) gen r u c = do buprepo <- getConfig r "buprepo" (error "missing buprepo") cst <- remoteCost r (if bupLocal buprepo then semiCheapRemoteCost else expensiveRemoteCost) @@ -60,7 +60,7 @@ gen r u c = do config = c } -bupSetup :: UUID -> M.Map String String -> Annex (M.Map String String) +bupSetup :: UUID -> RemoteConfig -> Annex RemoteConfig bupSetup u c = do -- verify configuration is sane let buprepo = case M.lookup "buprepo" c of |