#88: simplify the ping stanza construction code

codingteam · Oct 31, 2020 · 56b5943 · 56b5943
1 parent eb81f71
commit 56b5943
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/Emulsion/Xmpp/SharpXmppHelper.fs b/Emulsion/Xmpp/SharpXmppHelper.fs
@@ -60,10 +60,7 @@ let message (id: string) (toAddr: string) (text: string): XMPPMessage =
     m
 
 let ping (jid: JID) (id: string): XMPPIq =
-    let iq = XMPPIq()
-    iq.SetAttributeValue(Id, id)
-    iq.IqType <- XMPPIq.IqTypes.get
-    iq.To <- jid
+    let iq = XMPPIq(XMPPIq.IqTypes.get, id, To = jid)
     iq.Add(XElement(Ping))
     iq