Fix RethinkDB restore (#10)

- Also fixed replacement base URL issue
2022-06-24 08:47:22 -04:00
parent fde06a2e27
commit dfb0ff3b9c
4 changed files with 40 additions and 19 deletions
--- a/src/MyWebLog/Maintenance.fs
+++ b/src/MyWebLog/Maintenance.fs
@@ -275,7 +275,7 @@ module Backup =
            match! data.WebLog.findById archive.webLog.id with
            | Some webLog when defaultArg newUrlBase webLog.urlBase = webLog.urlBase ->
                do! data.WebLog.delete webLog.id
-                return archive
+                return { archive with webLog = { archive.webLog with urlBase = defaultArg newUrlBase webLog.urlBase } }
            | Some _ ->
                // Err'body gets new IDs...
                let newWebLogId = WebLogId.create ()