Support relative URLs in OpenGraph properties (#52)

2025-08-01 22:16:19 -04:00
parent 8b190a6c23
commit cba1bbfa28
9 changed files with 172 additions and 140 deletions
@@ -495,7 +495,7 @@ let save : HttpHandler = requireAccess Author >=> fun next ctx -> task {
    | Some post when canEdit post.AuthorId ctx ->
        let priorCats   = post.CategoryIds
        let updatedPost =
-            model.UpdatePost post ctx.WebLog (Noda.now ())
+            model.UpdatePost post (Noda.now ())
            |> function
            | post ->
                if model.SetPublished then