diff options
Diffstat (limited to 'Network/DNS.hs')
-rw-r--r-- | Network/DNS.hs | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/Network/DNS.hs b/Network/DNS.hs index 5d70f2e..db03c2d 100644 --- a/Network/DNS.hs +++ b/Network/DNS.hs @@ -11,14 +11,19 @@ import qualified Network.DNS as DNS (lookup) import Network.DNS hiding (lookup) main :: IO () - main = makeDefaultResolver >>= DNS.lookup \"www.example.com\" A >>= print + main = do + rs <- makeDefaultResolvSeed + withResolver rs $ \\resolver -> do + DNS.lookup resolver \"www.example.com\" A >>= print @ -} module Network.DNS ( - module Network.DNS.Types + module Network.DNS.Lookup , module Network.DNS.Resolver + , module Network.DNS.Types ) where -import Network.DNS.Types +import Network.DNS.Lookup import Network.DNS.Resolver +import Network.DNS.Types |