From 1fc38b4574cc71a9daf81462f06dff529cf45209 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Tue, 24 Nov 2015 17:45:08 -0500 Subject: [PATCH] Those are not errors --- Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Main.hs b/Main.hs index 9266329..1e2bd4c 100644 --- a/Main.hs +++ b/Main.hs @@ -170,7 +170,7 @@ componentStanza db _ toComponent (ReceivedPresence p@(Presence { presenceType = componentStanza _ _ toComponent (ReceivedIQ (IQ { iqType = IQGet, iqFrom = Just from, iqTo = Just to, iqID = id, iqPayload = Just p })) | Nothing <- jidNode to, [_] <- isNamed (fromString "{http://jabber.org/protocol/disco#info}query") p = - writeStanzaChan toComponent $ (emptyIQ IQError) { + writeStanzaChan toComponent $ (emptyIQ IQResult) { iqTo = Just from, iqFrom = Just to, iqID = id, @@ -186,7 +186,7 @@ componentStanza _ _ toComponent (ReceivedIQ (IQ { iqType = IQGet, iqFrom = Just componentStanza _ _ toComponent (ReceivedIQ (IQ { iqType = IQGet, iqFrom = Just from, iqTo = Just to, iqID = id, iqPayload = Just p })) | Just _ <- jidNode to, [_] <- isNamed (fromString "{http://jabber.org/protocol/disco#info}query") p = - writeStanzaChan toComponent $ (emptyIQ IQError) { + writeStanzaChan toComponent $ (emptyIQ IQResult) { iqTo = Just from, iqFrom = Just to, iqID = id, -- 2.38.4