let plugins process IQ answers

12 years ago · 873c7c82d6
1 changed files with 2 additions and 2 deletions
--- a/source/Network/Xmpp/Concurrent.hs
+++ b/source/Network/Xmpp/Concurrent.hs
@ -172,8 +172,8 @@ newSession stream config realm mbSasl = runErrorT $ do
				@@ -172,8 +172,8 @@ newSession stream config realm mbSasl = runErrorT $ do
    (sStanza, ps) <- initPlugins out $ plugins config
    let stanzaHandler = runHandlers $ List.concat
                        [ inHandler <$> ps
-                        , [ toChan stanzaChan out
-                          , handleIQ iqHands out
+                        , [ toChan stanzaChan sStanza
+                          , handleIQ iqHands sStanza
                          ]
                        , rosterH
                        ]