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/Directory.hs | |
parent | f7018e47e48cc61ef6e84adcff89f892cee2c8db (diff) |
RemoteConfig type
Diffstat (limited to 'Remote/Directory.hs')
-rw-r--r-- | Remote/Directory.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Directory.hs b/Remote/Directory.hs index 0d3478b79..2313f79a0 100644 --- a/Remote/Directory.hs +++ b/Remote/Directory.hs @@ -35,7 +35,7 @@ remote = RemoteType { setup = directorySetup } -gen :: Git.Repo -> UUID -> Maybe (M.Map String String) -> Annex (Remote Annex) +gen :: Git.Repo -> UUID -> Maybe RemoteConfig -> Annex (Remote Annex) gen r u _ = do dir <- getConfig r "directory" (error "missing directory") cst <- remoteCost r cheapRemoteCost @@ -51,7 +51,7 @@ gen r u _ = do config = Nothing } -directorySetup :: UUID -> M.Map String String -> Annex (M.Map String String) +directorySetup :: UUID -> RemoteConfig -> Annex RemoteConfig directorySetup u c = do -- verify configuration is sane let dir = case M.lookup "directory" c of |