From 4371090def28793aa2fdf33fb7432a959ba214fa Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Wed, 24 Mar 2010 12:03:28 +0900
Subject: implementing lookupXviaMX

---
 Network/DNS/Resolver.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Network/DNS/Resolver.hs')

diff --git a/Network/DNS/Resolver.hs b/Network/DNS/Resolver.hs
index e959bcb..54a6411 100644
--- a/Network/DNS/Resolver.hs
+++ b/Network/DNS/Resolver.hs
@@ -78,6 +78,11 @@ makeAddrInfo addr = do
 
 ----------------------------------------------------------------
 
+{-|
+  Giving a thread-safe 'Resolver' to the function of the second
+  argument. 'withResolver' should be passed to 'forkIO'.
+-}
+
 withResolver :: ResolvSeed -> (Resolver -> IO ()) -> IO ()
 withResolver seed func = do
   let ai = addrInfo seed
-- 
cgit v1.2.3