diff options
author | Kazu Yamamoto <kazu@iij.ad.jp> | 2011-10-23 21:32:59 -0700 |
---|---|---|
committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2011-10-23 21:32:59 -0700 |
commit | 04c4afa6f7af8be5bd9ac0871ac42510350ac2f0 (patch) | |
tree | c368ba3b3664fbfe9b2be45353d07e1e0960adea /Network/DNS/Resolver.hs | |
parent | 1cc2f6a8882ce9e1a79ab8789b50a79b2d021d14 (diff) | |
parent | 89d6ab583274e7e10a69bc915b0e48cfdbc6207a (diff) |
Merge pull request #3 from yihuang/master
Make this library full capable of decoding and encoding.
Diffstat (limited to 'Network/DNS/Resolver.hs')
-rw-r--r-- | Network/DNS/Resolver.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Network/DNS/Resolver.hs b/Network/DNS/Resolver.hs index 5919088..b3182f6 100644 --- a/Network/DNS/Resolver.hs +++ b/Network/DNS/Resolver.hs @@ -21,7 +21,7 @@ module Network.DNS.Resolver ( -- ** Intermediate data type for resolver , ResolvSeed, makeResolvSeed -- ** Type and function for resolver - , Resolver, withResolver + , Resolver(..), withResolver -- ** Looking up functions , lookup, lookupRaw ) where @@ -128,7 +128,7 @@ makeAddrInfo addr = do argument. 'withResolver' should be passed to 'forkIO'. -} -withResolver :: ResolvSeed -> (Resolver -> IO ()) -> IO () +withResolver :: ResolvSeed -> (Resolver -> IO a) -> IO a withResolver seed func = do let ai = addrInfo seed sock <- socket (addrFamily ai) (addrSocketType ai) (addrProtocol ai) |