1 files changed, 1 insertions(+), 1 deletions(-)

M Main.hs

@@ 1034,7 1034,7 @@ componentStanza _ _ _ _ _ _ _ _ (ReceivedIQ (iq@IQ { iqType = IQGet, iqFrom = Ju
 			iqPayload = Nothing
 		}]
 componentStanza db maybeSmsJid _ _ _ _ _ componentJid (ReceivedIQ (iq@IQ { iqType = typ, iqFrom = Just from }))
-	| fmap strResource (jidResource =<< iqTo iq) /= Just (s"capQuery") = do
+	| fmap strResource (jidResource =<< iqTo iq) /= Just (s"capsQuery") = do
 	let resourceSuffix = maybe mempty (s"/"++) $ fmap strResource (jidResource from)
 	maybeRoute <- TC.runTCM $ TC.get db (T.unpack (bareTxt from) ++ "\0direct-message-route")
 	case (fmap fromString maybeRoute, parseJID $ escapeJid (bareTxt from) ++ s"@" ++ formatJID componentJid ++ resourceSuffix) of