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

remove some debugging

Browse source
This commit is contained in:
Joey Hess 2024-07-25 21:36:10 -04:00
parent 96ad0ccc5b
commit b391756b32
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Annex/Proxy.hs
View file

@ -120,7 +120,7 @@ proxySpecialRemote protoversion r ihdl ohdl owaitv endv = go
liftIO $ sendmessage $ liftIO $ sendmessage $
ERROR "NOTIFYCHANGE unsupported for a special remote" ERROR "NOTIFYCHANGE unsupported for a special remote"
go go
Just _ -> giveup "protocol error M" Just _ -> giveup "protocol error"
Nothing -> return () Nothing -> return ()
getnextmessageorend = getnextmessageorend =
@ -173,9 +173,9 @@ proxySpecialRemote protoversion r ihdl ohdl owaitv endv = go
store store
Just (VALIDITY Invalid) -> Just (VALIDITY Invalid) ->
return () return ()
_ -> giveup "protocol error N" _ -> giveup "protocol error"
else store else store
_ -> giveup "protocol error O" _ -> giveup "protocol error"
proxyget offset af k = withproxytmpfile k $ \tmpfile -> do proxyget offset af k = withproxytmpfile k $ \tmpfile -> do
-- Don't verify the content from the remote, -- Don't verify the content from the remote,
@ -212,7 +212,7 @@ proxySpecialRemote protoversion r ihdl ohdl owaitv endv = go
receivemessage >>= \case receivemessage >>= \case
Just SUCCESS -> return () Just SUCCESS -> return ()
Just FAILURE -> return () Just FAILURE -> return ()
Just _ -> giveup "protocol error P" Just _ -> giveup "protocol error"
Nothing -> return () Nothing -> return ()
{- Check if this repository can proxy for a specified remote uuid, {- Check if this repository can proxy for a specified remote uuid,