From 9cc1d93f1ccaf63eba6bdc4338d83a3f6c0c1ebd Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Tue, 28 Mar 2023 12:43:20 +0000 Subject: [PATCH] Revert "fix(email): remove test for E#@fraport.de" This reverts commit 7c2226e138addc2154c58f98233d7c875d2ab0f9. --- src/Handler/Utils/Profile.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Handler/Utils/Profile.hs b/src/Handler/Utils/Profile.hs index cc823a019..22f7a8098 100644 --- a/src/Handler/Utils/Profile.hs +++ b/src/Handler/Utils/Profile.hs @@ -82,12 +82,12 @@ validPostAddress _ = False -- also see `Handler.Utils.Users.getEmailAddress` for Tests accepting User Type validEmail :: Email -> Bool -- Email = Text -validEmail email = validRFC5322 -- && not invalidFraport +validEmail email = validRFC5322 && not invalidFraport where validRFC5322 = Email.isValid $ encodeUtf8 email - -- invalidFraport = case Text.stripSuffix "@fraport.de" email of - -- Just fralogin -> all isDigit $ drop 1 fralogin - -- Nothing -> False + invalidFraport = case Text.stripSuffix "@fraport.de" email of + Just fralogin -> all isDigit $ drop 1 fralogin + Nothing -> False validEmail' :: UserEmail -> Bool -- UserEmail = CI Text validEmail' = validEmail . CI.original