diff options
| -rw-r--r-- | Assistant/MakeRemote.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Assistant/MakeRemote.hs b/Assistant/MakeRemote.hs index 73efcdaed..729b5126a 100644 --- a/Assistant/MakeRemote.hs +++ b/Assistant/MakeRemote.hs @@ -58,7 +58,7 @@ addRemote a = do {- Inits a rsync special remote, and returns its name. -} makeRsyncRemote :: String -> String -> Annex String makeRsyncRemote name location = makeRemote name location $ - const $ void $ makeSpecialRemote name Rsync.remote config + const $ makeSpecialRemote name Rsync.remote config where config = M.fromList [ ("encryption", "shared") @@ -66,14 +66,13 @@ makeRsyncRemote name location = makeRemote name location $ , ("type", "rsync") ] -{- Inits a special remote, and returns its name. -} -makeSpecialRemote :: String -> RemoteType -> R.RemoteConfig -> Annex String +{- Inits a special remote. -} +makeSpecialRemote :: String -> RemoteType -> R.RemoteConfig -> Annex () makeSpecialRemote name remotetype config = do (u, c) <- Command.InitRemote.findByName name c' <- R.setup remotetype u $ M.union config c describeUUID u name configSet u c' - return name {- Returns the name of the git remote it created. If there's already a - remote at the location, returns its name. -} |