Remove trailing whitespace

This commit is contained in:
Reynir Björnsson 2022-02-07 13:51:56 +00:00
parent 6a248b930c
commit 43b9bf93ed
4 changed files with 8 additions and 8 deletions

View file

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

View file

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

View file

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

View file

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