From b22ed42f5aacf3ba6adc35fb5ca786d3d8c813b1 Mon Sep 17 00:00:00 2001 From: Philipp Balzarek Date: Tue, 24 Apr 2012 14:34:07 +0200 Subject: [PATCH] STM 2.2 compatibility --- src/Network/XMPP/Concurrent/Monad.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Network/XMPP/Concurrent/Monad.hs b/src/Network/XMPP/Concurrent/Monad.hs index 7cd3d40..4ec4c78 100644 --- a/src/Network/XMPP/Concurrent/Monad.hs +++ b/src/Network/XMPP/Concurrent/Monad.hs @@ -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})