fix: fuck

This commit is contained in:
orion 2023-12-12 19:34:29 -06:00
parent 6c83726c53
commit da860c8f39
Signed by: orion
GPG Key ID: 6D4165AE4C928719

View File

@ -86,9 +86,9 @@ deliverableOnce email' = do
{ reachable, syntax, mx, smtp } <- lift $ Promise.toAffE $ checkEmailImpl email
when (not syntax.valid) $ throwError $ EmailSyntaxInvalid email'
when (not mx.valid) $ throwError $ EmailMXInvalid email'
when (not smtp.valid) $ throwError $ EmailSMTPInvalid email'
when (maybe true Array.null $ Nullable.toMaybe $ mx.mxRecords) $ throwError $ EmailMXNoRecords email'
for_ (Nullable.toMaybe $ smtp.error) $ throwError <<< EmailSMTPError email'
when (not smtp.valid) $ throwError $ EmailSMTPInvalid email'
when (not reachable) $ throwError $ EmailUnreachable email'
pure email'