mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove debug

Browse source
This commit is contained in:
Joey Hess 2024-05-21 11:46:14 -04:00
parent dc083bf8c8
commit 7f768aef77
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
CmdLine/GitRemoteAnnex.hs
View file

@ -454,8 +454,7 @@ parseSpecialRemoteUrl url remotename = case parseURI url of
-- Runs an action with a Remote as specified by the SpecialRemoteConfig. -- Runs an action with a Remote as specified by the SpecialRemoteConfig.
withSpecialRemote :: SpecialRemoteConfig -> StartAnnexBranch -> (Remote -> Annex a) -> Annex a withSpecialRemote :: SpecialRemoteConfig -> StartAnnexBranch -> (Remote -> Annex a) -> Annex a
withSpecialRemote (ExistingSpecialRemote remotename) _ a = do withSpecialRemote (ExistingSpecialRemote remotename) _ a =
liftIO $ hPutStrLn stderr "case 1"
getEnabledSpecialRemoteByName remotename >>= getEnabledSpecialRemoteByName remotename >>=
maybe (giveup $ "There is no special remote named " ++ remotename) maybe (giveup $ "There is no special remote named " ++ remotename)
a a