Support relative URLs in OpenGraph properties (#52)

src/MyWebLog/Handlers/Page.fs

@@ -164,7 +164,7 @@ let save : HttpHandler = requireAccess Author >=> fun next ctx -> task {
     match! tryPage with
     | Some page when canEdit page.AuthorId ctx ->
         let updateList  = page.IsInPageList <> model.IsShownInPageList
-        let updatedPage = model.UpdatePage page ctx.WebLog now
+        let updatedPage = model.UpdatePage page now
         do! (if model.IsNew then data.Page.Add else data.Page.Update) updatedPage
         if updateList then do! PageListCache.update ctx
         do! addMessage ctx { UserMessage.Success with Message = "Page saved successfully" }

src/MyWebLog/Handlers/Post.fs

@@ -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