variable name

diff --git a/P2P/Http.hs b/P2P/Http.hs
index 330d5a96ccc01615dfb349c197f13b6a60b508a3..907fb59a783b06901975b7b465eb7f34be0ca41a 100644 (file)
--- 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"