From 009531107dcb319d1de77ca4c781adc3ec5a900f Mon Sep 17 00:00:00 2001 From: John Millikin Date: Thu, 18 Jun 2009 02:21:33 +0000 Subject: [PATCH] Add type signatures for ``mkAttr`` and ``mkQName``, and fixed a typo in ``mkQName``. --- Network/Protocol/XMPP/Util.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Network/Protocol/XMPP/Util.hs b/Network/Protocol/XMPP/Util.hs index bdba3ec..e605ab2 100644 --- a/Network/Protocol/XMPP/Util.hs +++ b/Network/Protocol/XMPP/Util.hs @@ -76,8 +76,10 @@ mkElement (ns, localpart) attrs children = let attrs' = [mkAttr ans alp text | (ans, alp, text) <- attrs] in XN.mkElement qname attrs' children +mkAttr :: String -> String -> String -> XmlTree mkAttr ns localpart text = XN.mkAttr (mkQName ns localpart) [XN.mkText text] +mkQName :: String -> String -> QN.QName mkQName ns localpart = case ns of "" -> QN.mkName localpart - otherwise -> QN.mkNsName ns localpart + otherwise -> QN.mkNsName localpart ns -- 2.38.5