From 897b33cb7545acaf3afd36d321862227539c7254 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky 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