From 3f759614b4ddc455b515d753e260d11834139ccb Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Thu, 20 Apr 2023 10:10:06 +0000 Subject: [PATCH] chore(email): fix case sensitivity for fraport-e-account email checks --- src/Handler/Utils/Profile.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Utils/Profile.hs b/src/Handler/Utils/Profile.hs index d473bd54d..4f8e87546 100644 --- a/src/Handler/Utils/Profile.hs +++ b/src/Handler/Utils/Profile.hs @@ -83,7 +83,7 @@ validEmail :: Email -> Bool -- Email = Text validEmail email = validRFC5322 && not invalidFraport where 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 Nothing -> False