mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 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
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 S.Yield (UnlockRequest False) $ S.Effect $ do
liftIO $ print "sent keep locked request" liftIO $ print "sent keep locked request"
return $ S.Effect $ do return $ S.Effect $ do
stilllock <- liftIO $ atomically $ takeTMVar keeplocked stilllocked <- liftIO $ atomically $ takeTMVar keeplocked
if stilllock if stilllocked
then return unlocksender then return unlocksender
else do else do
liftIO $ print "sending unlock request" liftIO $ print "sending unlock request"