Tox support.

1 files changed, 10 insertions, 7 deletions

diff --git a/src/Network/QueryResponse.hs b/src/Network/QueryResponse.hs
index 5803e756..29a221e8 100644
--- a/src/Network/QueryResponse.hs
+++ b/src/Network/QueryResponse.hs
@@ -18,17 +18,17 @@ import GHC.Conc           (labelThread)
 import Control.Concurrent.STM
 import Control.Exception
 import Control.Monad
-import qualified Data.ByteString as B
-         ;import Data.ByteString (ByteString)
+import qualified Data.ByteString    as B
+         ;import Data.ByteString    (ByteString)
 import Data.Function
-import qualified Data.IntMap     as IntMap
-         ;import Data.IntMap     (IntMap)
-import qualified Data.Map        as Map
-         ;import Data.Map        (Map)
+import qualified Data.IntMap.Strict as IntMap
+         ;import Data.IntMap.Strict (IntMap)
+import qualified Data.Map.Strict    as Map
+         ;import Data.Map.Strict    (Map)
 import Data.Maybe
 import Data.Typeable
 import Network.Socket
-import Network.Socket.ByteString as B
+import Network.Socket.ByteString    as B
 import System.IO
 import System.IO.Error
 import System.Timeout
@@ -415,5 +415,8 @@ udpTransport bind_address = do
         r <- B.recvFrom sock udpBufferSize
         return $ Just $ Right r
     , sendMessage = \addr bs -> void $ B.sendTo sock bs addr
+        -- TODO: sendTo: does not exist (Network is unreachable)
+        --       Occurs when IPv6 network is not available.
+        --       Currently, we require -threaded to prevent a forever-hang in this case.
     , closeTransport = close sock
     }