X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMain.hs;h=9b22f5cfa20afe00ac3b82160a743781061ae754;hb=80e83309f0de0b4b89002564c94d9d988924bf9e;hp=d2346c427f18845d932631e7250001326e387190;hpb=a5e228280dfbdbd8f2b1f271adb362fee1a43de4;p=email-validator.git

diff --git a/src/Main.hs b/src/Main.hs
index d2346c4..9b22f5c 100644
--- 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