diff options
author | huangyi <yi.codeplayer@gmail.com> | 2011-10-23 13:22:18 +0800 |
---|---|---|
committer | huangyi <yi.codeplayer@gmail.com> | 2011-10-23 13:22:18 +0800 |
commit | d126d8fe4159b68feadd4145f0e2a1f90d7ca502 (patch) | |
tree | 450b233a2d7bdf17b64e8b28e102b0da0f18798e /Network/DNS/Resolver.hs | |
parent | 1cc2f6a8882ce9e1a79ab8789b50a79b2d021d14 (diff) |
make encoder and decoder invertable, and tests to ensure that.
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) |