From e986eafc21f9225bef296d13d143d096732bc7f9 Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Sun, 9 Jun 2013 15:25:16 -0400
Subject: [PATCH] Simplify a few lines of tests.

---
 src/EmailAddress.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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
-- 
2.44.2