Force URLs and e-mail to be lowercase (#45)

- Added v2.2 migration to lower existing e-mails
2024-06-18 22:01:41 -04:00
parent 823286255b
commit 7ae15b9e93
7 changed files with 78 additions and 35 deletions
--- a/src/MyWebLog.Domain/ViewModels.fs
+++ b/src/MyWebLog.Domain/ViewModels.fs
@@ -937,7 +937,7 @@ type EditUserModel = {
    member this.UpdateUser (user: WebLogUser) =
        { user with
            AccessLevel   = AccessLevel.Parse this.AccessLevel
-            Email         = this.Email
+            Email         = this.Email.ToLowerInvariant()
            Url           = noneIfBlank this.Url
            FirstName     = this.FirstName
            LastName      = this.LastName