diff --git a/src/MyWebLog.Data/PostgresData.fs b/src/MyWebLog.Data/PostgresData.fs index aa29188..0100983 100644 --- a/src/MyWebLog.Data/PostgresData.fs +++ b/src/MyWebLog.Data/PostgresData.fs @@ -215,7 +215,7 @@ type PostgresData(log: ILogger, ser: JsonSerializer) = let migrateV2point1point1ToV2point2 () = backgroundTask { Utils.Migration.logStep log "v2.1.1 to v2.2" "Setting e-mail to lowercase" do! Custom.nonQuery - $"""UPDATE {Table.WebLogUser} SET data = data || '{{"Email":"' || lower(data->>'Email') || '"}}'::jsonb""" + $"""UPDATE {Table.WebLogUser} SET data = data || ('{{"Email":"' || lower(data->>'Email') || '"}}')::jsonb""" [] Utils.Migration.logStep log "v2.1.1 to v2.2" "Setting database version to v2.2" return! setDbVersion "v2.2" diff --git a/src/MyWebLog.Data/RethinkDbData.fs b/src/MyWebLog.Data/RethinkDbData.fs index 1eb5612..938ae32 100644 --- a/src/MyWebLog.Data/RethinkDbData.fs +++ b/src/MyWebLog.Data/RethinkDbData.fs @@ -252,7 +252,7 @@ type RethinkDbData(conn: Net.IConnection, config: DataConfig, log: ILogger {| Email = row[nameof WebLogUser.Empty.Email].Downcase() |}) write; withRetryOnce; ignoreResult conn } - Utils.Migration.logStep log "v2.1.1 to v2.2" "Setting database version; no migration required" + Utils.Migration.logStep log "v2.1.1 to v2.2" "Setting database version to v2.2" do! setDbVersion "v2.2" }