From 873c7c82d6d099d35c993a4321bc2d31a0af08db Mon Sep 17 00:00:00 2001
From: Philipp Balzarek <p.balzarek@googlemail.com>
Date: Tue, 11 Mar 2014 17:36:17 +0100
Subject: [PATCH] let plugins process IQ answers

---
 source/Network/Xmpp/Concurrent.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/Network/Xmpp/Concurrent.hs b/source/Network/Xmpp/Concurrent.hs
index 124409f..3841ad7 100644
--- a/source/Network/Xmpp/Concurrent.hs
+++ b/source/Network/Xmpp/Concurrent.hs
@@ -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
                         ]