X-Git-Url: http://gitweb.michael.orlitzky.com/?p=email-validator.git;a=blobdiff_plain;f=src%2FEmailAddress.hs;h=0c1080613bb69d1db5b02a9c874d6fab6f4baf46;hp=615d43cf5ae02358de0ff5b47c9ab2b4e705e33f;hb=e986eafc21f9225bef296d13d143d096732bc7f9;hpb=031638c08a4ce9d7ea156ead71cb8ef02e23fa81

diff --git a/src/EmailAddress.hs b/src/EmailAddress.hs
index 615d43c..0c10806 100644
--- a/src/EmailAddress.hs
+++ b/src/EmailAddress.hs
@@ -116,7 +116,7 @@ test_good_addresses =
   where
     desc = "Good addresses are accepted."
     expected = True
-    actual = and (map validate_syntax good_addresses)
+    actual = all validate_syntax good_addresses
 
 test_bad_addresses :: Test
 test_bad_addresses =
@@ -125,7 +125,7 @@ test_bad_addresses =
   where
     desc = "Bad addresses are not accepted."
     expected = True
-    actual = and (map (not . validate_syntax) bad_addresses)
+    actual = all (not . validate_syntax) bad_addresses
 
 test_unsupported_addresses :: Test
 test_unsupported_addresses =
@@ -134,7 +134,7 @@ test_unsupported_addresses =
   where
     desc = "Unsupported addresses are not accepted."
     expected = True
-    actual = and (map (not . validate_syntax) unsupported_addresses)
+    actual = all (not . validate_syntax) unsupported_addresses
 
 
 email_address_tests :: Test