diff options
author | Kazu Yamamoto <kazu@iij.ad.jp> | 2010-03-24 12:03:28 +0900 |
---|---|---|
committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2010-03-24 12:03:28 +0900 |
commit | 4371090def28793aa2fdf33fb7432a959ba214fa (patch) | |
tree | 3d47f12214b40635dc62fc69fed5f2c1b64da644 /Network/DNS/Resolver.hs | |
parent | c2bd3b127be27a40cb279fb82d16cff147aaa10e (diff) |
implementing lookupXviaMX
Diffstat (limited to 'Network/DNS/Resolver.hs')
-rw-r--r-- | Network/DNS/Resolver.hs | 5 |
1 files changed, 5 insertions, 0 deletions
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 |