From 54fcc2ec51db4a4c2eb91b24660a3885d4f3869e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 15 Oct 2024 14:28:47 -0400 Subject: [PATCH] fix logic error --- Annex/Proxy.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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]