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

chore(email): fix case sensitivity for fraport-e-account email checks

Browse Source
This commit is contained in:
Steffen Jost 2023-04-20 10:10:06 +00:00
parent 13f53e3221
commit 3f759614b4
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/Handler/Utils/Profile.hs
View File

@ -83,7 +83,7 @@ validEmail :: Email -> Bool -- Email = Text
validEmail email = validRFC5322 && not invalidFraport validEmail email = validRFC5322 && not invalidFraport
where where
validRFC5322 = Email.isValid $ encodeUtf8 email validRFC5322 = Email.isValid $ encodeUtf8 email
invalidFraport = case Text.stripSuffix "@fraport.de" email of invalidFraport = case Text.stripSuffix "@fraport.de" (foldCase email) of
Just fralogin -> all isDigit $ drop 1 fralogin Just fralogin -> all isDigit $ drop 1 fralogin
Nothing -> False Nothing -> False