X-Git-Url: http://gitweb.michael.orlitzky.com/?p=email-validator.git;a=blobdiff_plain;f=src%2FMain.hs;fp=src%2FMain.hs;h=c220aaadc186d1be01d2432c7b22694323ee756d;hp=1cc4c73aa47d963e56f30a7188f05781f010b76c;hb=62e8d2df29b616854b97eb703dcddc796e2c88ca;hpb=da16d4008b48e054104d0d186f47c6382f280b06

diff --git a/src/Main.hs b/src/Main.hs
index 1cc4c73..c220aaa 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -41,13 +41,25 @@ import EmailAddress(
 resolv_conf ::  ResolvConf
 resolv_conf = defaultResolvConf { resolvTimeout = 10 * 1000 * 1000 }
 
--- | A list of common domains, there's no need to waste MX lookups
---   on these.
+-- | A list of common domains, there's no need to waste MX lookups on
+--   these. This is a very limited list; I don't want to be in the
+--   business of monitoring a million domains for MX record updates.
 common_domains :: [Domain]
 common_domains = map BS.pack [ "aol.com",
                                "comcast.net",
+                               "cox.net",
                                "gmail.com",
+                               "gmx.de",
+                               "googlemail.com",
+                               "hotmail.com",
+                               "icloud.com",
+                               "live.com",
+                               "me.com",
                                "msn.com",
+                               "outlook.com",
+                               "proton.me",
+                               "protonmail.ch",
+                               "protonmail.com",
                                "yahoo.com",
                                "verizon.net" ]