From 7c0b6527d70c147cca8ba5a0b4e8d98acef9613d Mon Sep 17 00:00:00 2001 From: Philipp Balzarek Date: Sat, 14 Dec 2013 21:49:25 +0100 Subject: [PATCH] check for empty domain part in jidFromTexts --- source/Network/Xmpp/Types.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/source/Network/Xmpp/Types.hs b/source/Network/Xmpp/Types.hs index 6c319f6..25848cd 100644 --- a/source/Network/Xmpp/Types.hs +++ b/source/Network/Xmpp/Types.hs @@ -886,7 +886,8 @@ jidFromTexts l d r = do return $ Jid localPart domainPart resourcePart where validDomainPart :: Text -> Bool - validDomainPart _s = True -- TODO + validDomainPart s = not $ Text.null s -- TODO: implement more stringent + -- checks validPartLength :: Text -> Bool validPartLength p = Text.length p > 0 && Text.length p < 1024