don't use SUCCESS-PLUS unncessarily

When dropping from a proxied remote that is not a cluster,
SUCCESS-PLUS is not needed, so don't use it.
This commit is contained in:
Joey Hess 2024-06-23 09:57:40 -04:00
parent 2762f9c4ce
commit 466c972913
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -292,11 +292,13 @@ proxy proxydone proxymethods servermode (ClientSide clientrunst clientconn) remo
mapM_ (\u -> removedContent proxymethods u k) us
protoerrhandler proxynextclientmessage $
client $ net $ sendMessage $
if all (maybe False fst) v'
then if null us || protocolversion < 2
let nonplussed = all (== remoteuuid) us
|| protocolversion < 2
in if all (maybe False fst) v'
then if nonplussed
then SUCCESS
else SUCCESS_PLUS us
else if null us || protocolversion < 2
else if nonplussed
then FAILURE
else FAILURE_PLUS us