From 104647ef46a7f0b6ac828b316427a284793c52f4 Mon Sep 17 00:00:00 2001
From: Jon Kristensen <info@jonkri.com>
Date: Mon, 4 Mar 2013 05:18:54 +0100
Subject: [PATCH] Clarify DNS "TODO" lines

---
 source/Network/Xmpp/Stream.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/Network/Xmpp/Stream.hs b/source/Network/Xmpp/Stream.hs
index 02fd316..f1b25e1 100644
--- a/source/Network/Xmpp/Stream.hs
+++ b/source/Network/Xmpp/Stream.hs
@@ -271,8 +271,8 @@ dnsLookup realm resolvConf = ErrorT $ do
 
         -- TODO: Use SRV result. Is list always empty?
 
-        -- TODO: How to connect to IPv6 address? Doesn't seem to work
-        -- with connectTo.
+        -- TODO: Attempt to connect over IPv6 if it is resolvable.
+        -- TODO: Setting field to disable IPv6 lookup.
         
         -- aaaaResult <- lookupAAAA resolver (BSC8.pack $ Text.unpack realm)
         -- debugM "Pontarius.Xmpp" $ "AAAA result: " ++ (show aaaaResult)