From 722469b6c5ae51195ccc2b922b879703d57c54e6 Mon Sep 17 00:00:00 2001
From: Stephen Paul Weber <singpolyma@singpolyma.net>
Date: Tue, 1 Jun 2021 15:23:52 -0500
Subject: [PATCH] Reply to all IQs as required by RFC

---
 gateway.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/gateway.hs b/gateway.hs
index c32349b..087d741 100644
--- a/gateway.hs
+++ b/gateway.hs
@@ -308,6 +308,9 @@ main = do
 					liftIO $ forM_ sfrom $ \fullFrom -> forM_ (sessionInitiateId stanza) $ \(_, sid) ->
 						Cache.insert fullJids sid fullFrom
 					bounceStanza stanza from asteriskJid
+				| XMPP.ReceivedIQ iq <- stanza,
+				  XMPP.iqType iq `elem` [XMPP.IQGet, XMPP.IQSet] ->
+					XMPP.putStanza $ iqError notImplemented iq
 				| otherwise ->
 					print ("DUNNO", stanza)
 
-- 
2.45.2