fix: add delays

src/Effect.Email.purs

@@ -15,13 +15,15 @@ import Data.Email (Email)
 import Data.Email as Email
 import Data.Eq.Generic (genericEq)
 import Data.Generic.Rep (class Generic)
+import Data.Int as Int
 import Data.Maybe (maybe)
+import Data.Newtype (wrap)
 import Data.Nullable (Nullable)
 import Data.Nullable as Nullable
 import Data.Show.Generic (genericShow)
 import Data.Traversable (for_)
 import Effect (Effect)
-import Effect.Aff (Aff)
+import Effect.Aff (Aff, delay)
 import Type.Function (type ($))
 
 foreign import checkEmailImpl :: String -> Effect $ Promise $ QEDResult
@@ -96,6 +98,7 @@ deliverable email' =
     attempt n
       | n < 10 =
           do
+            delay $ wrap $ 10.0 * Int.toNumber n
             res <- runExceptT $ deliverableOnce email'
             case res of
               Left (EmailUnreachable _) -> pure $ Loop $ n + 1
@@ -104,8 +107,17 @@ deliverable email' =
       | otherwise = pure $ Done $ Left $ EmailUnreachable email'
   in
     do
-      wildcard <- liftEither $ lmap (const $ EmailSyntaxInvalid email') $ Email.parse $ "*@" <> Email.domain email'
+      wildcard <- liftEither
+        $ lmap
+            ( const
+                $ EmailSyntaxInvalid email'
+            )
+        $ Email.parse
+        $ "b13f0cb1dd2d4404a91bf874e9fa8f5b@" <> Email.domain email'
+
       res <- lift $ runExceptT $ deliverableOnce wildcard
       case res of
         Right _ -> throwError $ EmailWildcardExists email'
-        _ -> ExceptT $ tailRecM attempt 0
+        _ -> do
+          lift $ delay $ wrap $ 100.0
+          ExceptT $ tailRecM attempt 0