From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 15 Oct 2024 18:28:47 +0000 (-0400)
Subject: fix logic error
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~17^2~40
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=54fcc2ec51db4a4c2eb91b24660a3885d4f3869e;p=git-annex.git

fix logic error
---

diff --git a/Annex/Proxy.hs b/Annex/Proxy.hs
index 1b4a766820..467782fc57 100644
--- a/Annex/Proxy.hs
+++ b/Annex/Proxy.hs
@@ -307,7 +307,7 @@ proxySpecialRemote protoversion r ihdl ohdl owaitv oclosedv mexportdb = go
 				)
 
 		getcontents n h = unsafeInterleaveIO $ do
-			isdone <- isEmptyMVar donev <||> isEmptyMVar cancelv
+			isdone <- (not <$> isEmptyMVar donev) <||> (not <$> isEmptyMVar cancelv)
 			c <- BS.hGet h defaultChunkSize
 			let n' = n - fromIntegral (BS.length c)
 			let c' = L.fromChunks [BS.take (fromIntegral n) c]