From 897b33cb7545acaf3afd36d321862227539c7254 Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Sat, 1 Feb 2020 17:55:57 -0500
Subject: [PATCH] src/DNS.hs: update a test, example.com now has a NULLMX
 record.

---
 src/DNS.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/DNS.hs b/src/DNS.hs
index 2ebde3c..aa46f4b 100644
--- a/src/DNS.hs
+++ b/src/DNS.hs
@@ -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 =
-- 
2.44.2