~tsileo/entries.pub

53739753db964831bc7b7e96b936b3296f627226 — Thomas Sileo 1 year, 8 months ago 3828d5c
Fix CI
3 files changed, 4 insertions(+), 3 deletions(-)

M .drone.yml
M lib/entry.ml
M lib/micropub.ml
M .drone.yml => .drone.yml +1 -1
@@ 2,7 2,7 @@ kind: pipeline
name: default
steps:
  - name: test
    image: ocaml/opam2:4.07
    image: ocaml/opam2:4.09
    commands:
      - sudo apt update
      - sudo apt install -y libgmp-dev perl pkg-config libssl-dev m4 libseccomp-dev

M lib/entry.ml => lib/entry.ml +1 -1
@@ 292,4 292,4 @@ let update_hook url body =
  Websub.ping Config.base_url
  >>= fun _ ->
  let hbody = Omd.of_string body |> Omd.to_html in
  Webmention.send_webmentions url hbody >>= fun _ -> Lwt.return true
  Webmention.send_webmentions url hbody >|= fun _ -> true

M lib/micropub.ml => lib/micropub.ml +2 -1
@@ 74,10 74,11 @@ let micropub_delete url =
    match some_stored with
    | Some stored ->
        let content = jform_field stored [ "properties"; "content" ] "" in
        let url = jform_field stored [ "properties"; "url" ] "" in
        Entry.remove uid
        >>= fun _ ->
        (* Entry is deleted at this point *)
        Entry.update_hook (build_url uid slug) content
        Entry.update_hook url content
        >>= fun _ -> `String "" |> respond' ~code:`No_content
    | None ->
        raise (Error_not_found "url not found")