diff options
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) |