STM 2.2 compatibility

14 years ago · b22ed42f5a
1 changed files with 1 additions and 1 deletions
--- a/src/Network/XMPP/Concurrent/Monad.hs
+++ b/src/Network/XMPP/Concurrent/Monad.hs
@ -175,7 +175,7 @@ sendMessage = sendS . MessageS
				@@ -175,7 +175,7 @@ sendMessage = sendS . MessageS
 modifyHandlers :: (EventHandlers -> EventHandlers) -> XMPPThread ()
 modifyHandlers f = do
    eh <- asks eventHandlers
-    liftIO . atomically $ modifyTVar eh f
+    liftIO . atomically $ writeTVar eh . f =<< readTVar eh

 setSessionEndHandler :: XMPPThread () -> XMPPThread ()
 setSessionEndHandler eh = modifyHandlers (\s -> s{sessionEndHandler = eh})