@@ -52,7 +52,7 @@ none f = not . any f
5252
5353instance Arbitrary EmailAddress where
5454 arbitrary = do
55− s <- listOf1 (elements $ ['a'..'z'] <> ['A'..'Z'] <> ['0'..'9'])
55+ s <- take 64 <$> listOf1 (elements $ ['a'..'z'] <> ['A'..'Z'] <> ['0'..'9'])
5656 return $ Email.unsafeEmailAddress (ByteString.pack s) "example.com"
5757 -- FIXME: write the correct instance
5858 -- arbitrary = do
@@ -72,4 +72,4 @@ instance Arbitrary EmailAddress where
7272 -- -- no subdomains
7373 -- domain <- replicateM n (elements ['a'..'Z'])
7474 -- domainLiteral <- elements ["com", "travel", "net", "ru", "io"]
75− -- unsafeEmailAddress <$> local <*> domain <> "." domainLiteral
75+ -- unsafeEmailAddress <$> local <*> domain <> "." domainLiteral