From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 22 Jul 2024 20:50:11 +0000 (-0400)
Subject: variable name
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~21^2~228^2~94
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=10682eb88263381ccbd7b92ada74b578e7158840;p=git-annex.git

variable name
---

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"