From e6a559faa260cabfedf1df8901b60fb500757a3b Mon Sep 17 00:00:00 2001 From: Philipp Balzarek Date: Tue, 25 Feb 2014 15:32:44 +0100 Subject: [PATCH] use cloneTChan instead of dubTChan in dupSession --- source/Network/Xmpp/Concurrent/Basic.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source/Network/Xmpp/Concurrent/Basic.hs b/source/Network/Xmpp/Concurrent/Basic.hs index b1519f3..b9b3c5b 100644 --- a/source/Network/Xmpp/Concurrent/Basic.hs +++ b/source/Network/Xmpp/Concurrent/Basic.hs @@ -45,7 +45,7 @@ getStanza session = atomically . readTChan $ stanzaCh session -- and can still be handled somewhere else. dupSession :: Session -> IO Session dupSession session = do - stanzaCh' <- atomically $ dupTChan (stanzaCh session) + stanzaCh' <- atomically $ cloneTChan (stanzaCh session) return $ session {stanzaCh = stanzaCh'} -- | Return the JID assigned to us by the server