From b391756b327a90bb61f9161b70643e93ac1d8cba Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 25 Jul 2024 21:36:10 -0400 Subject: [PATCH] remove some debugging --- Annex/Proxy.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Annex/Proxy.hs b/Annex/Proxy.hs index 697e7cbf0b..193a01aa08 100644 --- a/Annex/Proxy.hs +++ b/Annex/Proxy.hs @@ -120,7 +120,7 @@ proxySpecialRemote protoversion r ihdl ohdl owaitv endv = go liftIO $ sendmessage $ ERROR "NOTIFYCHANGE unsupported for a special remote" go - Just _ -> giveup "protocol error M" + Just _ -> giveup "protocol error" Nothing -> return () getnextmessageorend = @@ -173,9 +173,9 @@ proxySpecialRemote protoversion r ihdl ohdl owaitv endv = go store Just (VALIDITY Invalid) -> return () - _ -> giveup "protocol error N" + _ -> giveup "protocol error" else store - _ -> giveup "protocol error O" + _ -> giveup "protocol error" proxyget offset af k = withproxytmpfile k $ \tmpfile -> do -- Don't verify the content from the remote, @@ -212,7 +212,7 @@ proxySpecialRemote protoversion r ihdl ohdl owaitv endv = go receivemessage >>= \case Just SUCCESS -> return () Just FAILURE -> return () - Just _ -> giveup "protocol error P" + Just _ -> giveup "protocol error" Nothing -> return () {- Check if this repository can proxy for a specified remote uuid,