Remove trailing whitespace

pull/76/head
Reynir Björnsson 10 months ago
parent 6a248b930c
commit 43b9bf93ed
  1. 2
      .ocp-indent
  2. 2
      lib/builder_web.ml
  3. 6
      lib/utils.ml
  4. 6
      lib/views.ml

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

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

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

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

Loading…
Cancel
Save