fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Revert "fix(email): remove test for E#@fraport.de"

Browse Source 
This reverts commit 7c2226e138.
This commit is contained in:
Steffen Jost 2023-03-28 12:43:20 +00:00
parent 7c2226e138
commit 9cc1d93f1c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Handler/Utils/Profile.hs
View File

@ -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