diff --git a/CmdLine/GitRemoteAnnex.hs b/CmdLine/GitRemoteAnnex.hs index 1016d2482a..63c5630bb1 100644 --- a/CmdLine/GitRemoteAnnex.hs +++ b/CmdLine/GitRemoteAnnex.hs @@ -454,8 +454,7 @@ parseSpecialRemoteUrl url remotename = case parseURI url of -- Runs an action with a Remote as specified by the SpecialRemoteConfig. withSpecialRemote :: SpecialRemoteConfig -> StartAnnexBranch -> (Remote -> Annex a) -> Annex a -withSpecialRemote (ExistingSpecialRemote remotename) _ a = do - liftIO $ hPutStrLn stderr "case 1" +withSpecialRemote (ExistingSpecialRemote remotename) _ a = getEnabledSpecialRemoteByName remotename >>= maybe (giveup $ "There is no special remote named " ++ remotename) a