From 10682eb88263381ccbd7b92ada74b578e7158840 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 22 Jul 2024 16:50:11 -0400 Subject: [PATCH] variable name --- P2P/Http.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/P2P/Http.hs b/P2P/Http.hs index 330d5a96cc..907fb59a78 100644 --- a/P2P/Http.hs +++ b/P2P/Http.hs @@ -885,8 +885,8 @@ clientKeepLocked clientenv (ProtocolVersion ver) lckid cu su bypass keeplocked = S.Yield (UnlockRequest False) $ S.Effect $ do liftIO $ print "sent keep locked request" return $ S.Effect $ do - stilllock <- liftIO $ atomically $ takeTMVar keeplocked - if stilllock + stilllocked <- liftIO $ atomically $ takeTMVar keeplocked + if stilllocked then return unlocksender else do liftIO $ print "sending unlock request" -- 2.30.2