diff options
author | Kazu Yamamoto <kazu@iij.ad.jp> | 2010-06-08 17:27:58 +0900 |
---|---|---|
committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2010-06-08 17:27:58 +0900 |
commit | d24c98022d96a525efa9f736e7a52d0833ad47b4 (patch) | |
tree | 39fbcb14041a91b7dfc95feb6bae7176c8a81e91 /Network/DNS.hs | |
parent | 907f236b1fa936493eeb21c054b439483a34e8ae (diff) |
we can specify timeout.
Diffstat (limited to 'Network/DNS.hs')
-rw-r--r-- | Network/DNS.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Network/DNS.hs b/Network/DNS.hs index 735db1f..c8a4c83 100644 --- a/Network/DNS.hs +++ b/Network/DNS.hs @@ -12,7 +12,7 @@ import Network.DNS hiding (lookup) main :: IO () main = do - rs <- makeDefaultResolvSeed + rs <- makeResolvSeed defaultResolvConf withResolver rs $ \\resolver -> do DNS.lookup resolver \"www.example.com\" A >>= print @ |