sync ocamlformat

Author: rr0gi

.github/workflows/test.yml

@@ -35,7 +35,7 @@ jobs:
 
       - run: opam install . --deps-only --with-doc --with-test
 
-      - run: opam install ocamlformat.0.19.0
+      - run: opam install ocamlformat.0.20.1
 
       - name: compile
         run: opam exec -- make

.ocamlformat

@@ -1,4 +1,4 @@
-#version=0.19.0
+version=0.20.1
 break-cases=toplevel
 break-infix-before-func=false
 break-infix=fit-or-vertical

lib/action.ml

@@ -8,7 +8,6 @@ open Github_j
 exception Action_error of string
 
 let action_error msg = raise (Action_error msg)
-
 let log = Log.from "action"
 
 module Action (Github_api : Api.Github) (Slack_api : Api.Slack) = struct

lib/api.ml

@@ -4,11 +4,8 @@ open Slack_t
 
 module type Github = sig
   val get_config : ctx:Context.t -> repo:repository -> (Config_t.config, string) Result.t Lwt.t
-
   val get_api_commit : ctx:Context.t -> repo:repository -> sha:string -> (api_commit, string) Result.t Lwt.t
-
   val get_pull_request : ctx:Context.t -> repo:repository -> number:int -> (pull_request, string) Result.t Lwt.t
-
   val get_issue : ctx:Context.t -> repo:repository -> number:int -> (issue, string) Result.t Lwt.t
 
   val request_reviewers
@@ -21,8 +18,6 @@ end
 
 module type Slack = sig
   val send_notification : ctx:Context.t -> msg:post_message_req -> unit slack_response Lwt.t
-
   val send_chat_unfurl : ctx:Context.t -> chat_unfurl_req -> unit slack_response Lwt.t
-
   val send_auth_test : ctx:Context.t -> unit -> auth_test_res slack_response Lwt.t
 end

lib/api_local.ml

@@ -3,7 +3,6 @@ open Common
 open Devkit
 
 let cwd = Caml.Sys.getcwd ()
-
 let cache_dir = Caml.Filename.concat cwd "github-api-cache"
 
 module Github : Api.Github = struct
@@ -20,17 +19,13 @@ module Github : Api.Github = struct
     | Ok file -> Lwt.return @@ Ok (Github_j.api_commit_of_string file)
 
   let get_pull_request ~ctx:_ ~repo:_ ~number:_ = Lwt.return @@ Error "undefined for local setup"
-
   let get_issue ~ctx:_ ~repo:_ ~number:_ = Lwt.return @@ Error "undefined for local setup"
-
   let request_reviewers ~ctx:_ ~repo:_ ~number:_ ~reviewers:_ = Lwt.return @@ Error "undefined for local setup"
 end
 
 module Slack_base : Api.Slack = struct
   let send_notification ~ctx:_ ~msg:_ = Lwt.return @@ Error "undefined for local setup"
-
   let send_chat_unfurl ~ctx:_ _ = Lwt.return @@ Error "undefined for local setup"
-
   let send_auth_test ~ctx:_ () = Lwt.return @@ Error "undefined for local setup"
 end
 

lib/api_remote.ml

@@ -78,7 +78,6 @@ end
 
 module Slack : Api.Slack = struct
   let log = Log.from "slack"
-
   let query_error_msg url e = sprintf "error while querying %s: %s" url e
 
   let slack_api_request ?headers ?body meth url read =

lib/atd_adapters.ml

@@ -40,11 +40,7 @@ module List_or_default_field = struct
 end
 
 module Branch_filters_adapter = List_or_default_field.Make (struct
-  let field_name = "branch_filters"
-
-  let default_alias = "any"
-
-  let default_value = `List []
+  let field_name = "branch_filters" let default_alias = "any" let default_value = `List []
 end)
 
 (** Error detection in Slack API response. The web API communicates errors using

lib/colors.ml

@@ -1,13 +1,8 @@
 (* https://styleguide.github.com/primer/utilities/colors/#background-colors *)
 
 let gray = "#f6f8fa"
-
 let blue = "#0366d6"
-
 let yellow = "#ffd33d"
-
 let red = "#d73a49"
-
 let green = "#28a745"
-
 let purple = "#6f42c1"

lib/common.ml

@@ -5,21 +5,16 @@ module StringMap = struct
   type 'a t = 'a Map.M(String).t
 
   let empty : 'a t = Map.empty (module String)
-
   let to_list (l : 'a t) : (string * 'a) list = Map.to_alist l
-
   let of_list (m : (string * 'a) list) : 'a t = Map.of_alist_exn (module String) m
-
   let wrap = of_list
-
   let unwrap = to_list
 end
 
 module Re2 = struct
   include Re2
 
   let wrap s = create_exn s
-
   let unwrap = Re2.to_string
 end
 

lib/github.ml

@@ -93,7 +93,6 @@ type gh_link =
   | Commit of repository * commit_hash
 
 let gh_link_re = Re2.create_exn {|^(.*)/(.+)/(.+)/(commit|pull|issues)/([a-z0-9]+)/?$|}
-
 let gh_org_team_re = Re2.create_exn {|[a-zA-Z0-9\-]+/([a-zA-Z0-9\-]+)|}
 
 (** [gh_link_of_string s] parses a URL string [s] to try to match a supported