format: fixed ocamlformat for action.ml and slack.ml

Author: dombong

lib/action.ml

@@ -248,21 +248,22 @@ module Action (Github_api : Api.Github) (Slack_api : Api.Slack) = struct
       match validate_signature secrets payload with
       | Error e -> action_error e
       | Ok () ->
-      let repo = Github.repo_of_notification payload in
-      match repo_is_supported secrets repo with
-      | false -> action_error @@ Printf.sprintf "unsupported repository %s" repo.url
-      | true ->
-        ( match%lwt refresh_repo_config ctx payload with
-        | Error e -> action_error e
-        | Ok () ->
-          let%lwt notifications = generate_notifications ctx payload in
-          let%lwt () = Lwt.join [ send_notifications ctx notifications; do_github_tasks ctx repo payload ] in
-          ( match ctx.state_filepath with
-          | None -> Lwt.return_unit
-          | Some path ->
-            ( match%lwt State.save ctx.state path with
-            | Ok () -> Lwt.return_unit
-            | Error e -> action_error e
+        let repo = Github.repo_of_notification payload in
+        ( match repo_is_supported secrets repo with
+        | false -> action_error @@ Printf.sprintf "unsupported repository %s" repo.url
+        | true ->
+          ( match%lwt refresh_repo_config ctx payload with
+          | Error e -> action_error e
+          | Ok () ->
+            let%lwt notifications = generate_notifications ctx payload in
+            let%lwt () = Lwt.join [ send_notifications ctx notifications; do_github_tasks ctx repo payload ] in
+            ( match ctx.state_filepath with
+            | None -> Lwt.return_unit
+            | Some path ->
+              ( match%lwt State.save ctx.state path with
+              | Ok () -> Lwt.return_unit
+              | Error e -> action_error e
+              )
             )
           )
         )

lib/slack.ml

@@ -89,8 +89,8 @@ let generate_pr_review_notification notification channel =
         )
   in
   let summary =
-    sprintf "<%s|[%s]> *%s* <%s|%s> #%d %s" repository.url repository.full_name sender.login review.html_url
-      action_str number (pp_link ~url:html_url title)
+    sprintf "<%s|[%s]> *%s* <%s|%s> #%d %s" repository.url repository.full_name sender.login review.html_url action_str
+      number (pp_link ~url:html_url title)
   in
   {
     channel;
@@ -343,8 +343,8 @@ let generate_commit_comment_notification api_commit notification channel =
     | Some c -> c
   in
   let summary =
-    sprintf "<%s|[%s]> *%s* commented on `%s` %s" repository.url repository.full_name sender.login (pp_link ~url:comment.html_url
-      (git_short_sha_hash commit_id))
+    sprintf "<%s|[%s]> *%s* commented on `%s` %s" repository.url repository.full_name sender.login
+      (pp_link ~url:comment.html_url (git_short_sha_hash commit_id))
       (first_line (escape commit.message))
   in
   let path =