Add length tests and fix zero-length domain bug.

[email-validator.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index d2346c427f18845d932631e7250001326e387190..9b22f5cfa20afe00ac3b82160a743781061ae754 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -60,12 +60,6 @@ validate_mx resolver domain
         _       -> return True
 
 
--- | Validate the syntax of an email address by checking its length
---   and validating it against a simple regex.
-validate_syntax :: Address -> Bool
-validate_syntax address =
-  (validate_length address) && (validate_regex address)
-
 
 -- | Validate an email address by doing some simple syntax checks and
 --   (if those fail) an MX lookup. We don't count an A record as a mail