~singpolyma/network-protocol-xmpp

e677ead52cb6f53ddded64d5deb7842b48acc640 — John Millikin 14 years ago e17933b
Stylistic
1 files changed, 3 insertions(+), 3 deletions(-)

M Network/Protocol/XMPP/JID.hs
M Network/Protocol/XMPP/JID.hs => Network/Protocol/XMPP/JID.hs +3 -3
@@ 72,9 72,9 @@ jidBuild :: String -> String -> String -> Maybe JID
jidBuild nodeStr domainStr resourceStr = let
	node = jidNodeBuild nodeStr
	resource = jidResourceBuild resourceStr
	in case (jidDomainBuild domainStr) of
		Nothing -> Nothing
		(Just domain) -> Just (JID node domain resource)
	in do
		domain <- jidDomainBuild domainStr
		Just (JID node domain resource)

-- TODO: validate input according to RFC 3920, section 3.1
jidParse :: String -> Maybe JID