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