diff --git a/src/Handler/Utils/Profile.hs b/src/Handler/Utils/Profile.hs index 22f7a8098..cc823a019 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