diff --git a/src/MyWebLog.Data/RethinkDbData.fs b/src/MyWebLog.Data/RethinkDbData.fs index 1c035e3..6547819 100644 --- a/src/MyWebLog.Data/RethinkDbData.fs +++ b/src/MyWebLog.Data/RethinkDbData.fs @@ -238,6 +238,12 @@ type RethinkDbData(conn: Net.IConnection, config: DataConfig, log: ILogger Utils.Migration.currentDbVersion then log.LogWarning $"Unknown database version; assuming {Utils.Migration.currentDbVersion}" do! setDbVersion Utils.Migration.currentDbVersion diff --git a/src/MyWebLog.Data/SQLiteData.fs b/src/MyWebLog.Data/SQLiteData.fs index 424f282..95b3936 100644 --- a/src/MyWebLog.Data/SQLiteData.fs +++ b/src/MyWebLog.Data/SQLiteData.fs @@ -430,6 +430,12 @@ type SQLiteData(conn: SqliteConnection, log: ILogger, ser: JsonSeria Utils.Migration.backupAndRestoreRequired log "v2" "v2.1" webLogs } + /// Migrate from v2.1 to v2.1.1 + let migrateV2ToV2point1point1 () = backgroundTask { + Utils.Migration.logStep log "v2.1 to v2.1.1" "Setting database version; no migration required" + do! setDbVersion "v2.1.1" + } + /// Migrate data among versions (up only) let migrate version = backgroundTask { let mutable v = defaultArg version "" @@ -446,6 +452,10 @@ type SQLiteData(conn: SqliteConnection, log: ILogger, ser: JsonSeria do! migrateV2ToV2point1 () v <- "v2.1" + if v = "v2.1" then + do! migrateV2ToV2point1point1 () + v <- "v2.1.1" + if v <> Utils.Migration.currentDbVersion then log.LogWarning $"Unknown database version; assuming {Utils.Migration.currentDbVersion}" do! setDbVersion Utils.Migration.currentDbVersion