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

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

Browse Source
This commit is contained in:
Steffen Jost 2023-03-28 11:47:56 +00:00
parent 731d0ce7c7
commit 7c2226e138
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