From 43b9bf93ed5f437f934dbdb67fc45c163b4611d5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Reynir=20Bj=C3=B6rnsson?= Date: Mon, 7 Feb 2022 13:51:56 +0000 Subject: [PATCH] Remove trailing whitespace --- .ocp-indent | 2 +- lib/builder_web.ml | 2 +- lib/utils.ml | 6 +++--- lib/views.ml | 6 +++--- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/.ocp-indent b/.ocp-indent index 8782308..6ec26a7 100644 --- a/.ocp-indent +++ b/.ocp-indent @@ -38,7 +38,7 @@ with = 0 # | _ -> # ^^^^bar # the default is 2, which aligns the pattern and the expression -match_clause = 2 +match_clause = 2 # Indentation for items inside extension nodes: # [%% id.id diff --git a/lib/builder_web.ml b/lib/builder_web.ml index 7a5831f..caa437b 100644 --- a/lib/builder_web.ml +++ b/lib/builder_web.ml @@ -139,7 +139,7 @@ let add_routes datadir = ~log:(fun e -> Log.warn (fun m -> m "Error getting job: %a" pp_error e)) >>= fun (readme, builds) -> builds - |> Views.Job.make ~failed:false ~job_name ~platform ~readme + |> Views.Job.make ~failed:false ~job_name ~platform ~readme |> string_of_html |> Dream.html |> Lwt_result.ok in diff --git a/lib/utils.ml b/lib/utils.ml index 93ba6ad..4db0e83 100644 --- a/lib/utils.ml +++ b/lib/utils.ml @@ -119,8 +119,8 @@ module Omd = struct let html_of_string markdown = markdown - |> Omd.of_string - |> make_safe - |> Omd.to_html + |> Omd.of_string + |> make_safe + |> Omd.to_html end diff --git a/lib/views.ml b/lib/views.ml index 347864a..42c36ae 100644 --- a/lib/views.ml +++ b/lib/views.ml @@ -188,7 +188,7 @@ let artifact txtf " (%a)" Fmt.byte_size size; ] -module Builds = struct +module Builds = struct let make_header = [ @@ -300,7 +300,7 @@ end module Job = struct let make_header ~job_name ~platform ~readme = - H.h1 [txtf "Job %s %a" job_name pp_platform platform] + H.h1 [txtf "Job %s %a" job_name pp_platform platform] :: ( match readme with | None -> [] @@ -561,7 +561,7 @@ module Job_build = struct [ H.p viz_deps_iframe]; if not @@ contains_debug_bin artifacts then [] else [ H.p @@ Lazy.force viz_treemap_iframe ]; - ] + ] let make ~name