X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FDNS.hs;h=aa46f4be8191798f7194495e761d92ee5120ce70;hb=HEAD;hp=2ebde3c2d537f2a2a2808ca0fb22232800b19b9c;hpb=78aed23927af1734e0adf03095a617ba5ddbea01;p=haeredes.git

diff --git a/src/DNS.hs b/src/DNS.hs
index 2ebde3c..a6ba446 100644
--- a/src/DNS.hs
+++ b/src/DNS.hs
@@ -30,7 +30,7 @@ type LookupResult = (Domain, Either DNSError [Domain])
 --   Examples:
 --
 --   >>> resolve_address "example.com"
---   Right [93.184.216.34]
+--   Right [93.184.215.14]
 --   >>> resolve_address "93.184.216.34"
 --   Right [93.184.216.34]
 --
@@ -53,12 +53,12 @@ resolve_address s =
 --
 --   Examples:
 --
---   The example domain, example.com, has no MX record.
+--   The example domain, example.com, has a NULLMX record.
 --
 --   >>> rs <- makeResolvSeed defaultResolvConf
 --   >>> let domain = BS.pack "example.com."
 --   >>> withResolver rs $ \resolver -> lookupMX' resolver domain
---   ("example.com.",Right [])
+--   ("example.com.",Right ["."])
 --
 lookupMX' :: Resolver -> Domain -> IO LookupResult
 lookupMX' resolver domain =