mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

variable name

Browse source
This commit is contained in:
Joey Hess 2024-07-22 16:50:11 -04:00
parent 8a48d08abd
commit 10682eb882
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
P2P/Http.hs
View file

@ -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"