thunderstrike/purescript-email-address
thunderstrike/purescript-email-address
2
0
Fork 0
generated from tpl/purs
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix: fuck

Browse Source
This commit is contained in:
orion 2023-12-12 19:24:43 -06:00
parent ef0191e573
commit 6c83726c53
Signed by: orion
GPG Key ID: 6D4165AE4C928719
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Effect.Email.purs
View File

@ -84,12 +84,12 @@ deliverableOnce :: Email -> ExceptT EmailError Aff Email
deliverableOnce email' = do deliverableOnce email' = do
let email = Email.toString email' let email = Email.toString email'
{ reachable, syntax, mx, smtp } <- lift $ Promise.toAffE $ checkEmailImpl email { reachable, syntax, mx, smtp } <- lift $ Promise.toAffE $ checkEmailImpl email
when (not reachable) $ throwError $ EmailUnreachable email'
when (not syntax.valid) $ throwError $ EmailSyntaxInvalid email' when (not syntax.valid) $ throwError $ EmailSyntaxInvalid email'
when (not mx.valid) $ throwError $ EmailMXInvalid email' when (not mx.valid) $ throwError $ EmailMXInvalid email'
when (not smtp.valid) $ throwError $ EmailSMTPInvalid email' when (not smtp.valid) $ throwError $ EmailSMTPInvalid email'
when (maybe true Array.null $ Nullable.toMaybe $ mx.mxRecords) $ throwError $ EmailMXNoRecords email' when (maybe true Array.null $ Nullable.toMaybe $ mx.mxRecords) $ throwError $ EmailMXNoRecords email'
for_ (Nullable.toMaybe $ smtp.error) $ throwError <<< EmailSMTPError email' for_ (Nullable.toMaybe $ smtp.error) $ throwError <<< EmailSMTPError email'
when (not reachable) $ throwError $ EmailUnreachable email'
pure email' pure email'
deliverable :: Email -> ExceptT EmailError Aff Email deliverable :: Email -> ExceptT EmailError Aff Email