robur/builder-web
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove trailing whitespace

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
.ocp-indent
View file

@ -38,7 +38,7 @@ with = 0
# | _ -> # | _ ->
# ^^^^bar # ^^^^bar
# the default is 2, which aligns the pattern and the expression # the default is 2, which aligns the pattern and the expression
match_clause = 2 match_clause = 2
# Indentation for items inside extension nodes: # Indentation for items inside extension nodes:
# [%% id.id # [%% id.id

2
lib/builder_web.ml
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)) ~log:(fun e -> Log.warn (fun m -> m "Error getting job: %a" pp_error e))
>>= fun (readme, builds) -> >>= fun (readme, builds) ->
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 |> string_of_html |> Dream.html |> Lwt_result.ok
in in

6
lib/utils.ml
View file

@ -119,8 +119,8 @@ module Omd = struct
let html_of_string markdown = let html_of_string markdown =
markdown markdown
|> Omd.of_string |> Omd.of_string
|> make_safe |> make_safe
|> Omd.to_html |> Omd.to_html
end end

6
lib/views.ml
View file

@ -188,7 +188,7 @@ let artifact
txtf " (%a)" Fmt.byte_size size; txtf " (%a)" Fmt.byte_size size;
] ]
module Builds = struct module Builds = struct
let make_header = let make_header =
[ [
@ -300,7 +300,7 @@ end
module Job = struct module Job = struct
let make_header ~job_name ~platform ~readme = 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 match readme with
| None -> [] | None -> []
@ -561,7 +561,7 @@ module Job_build = struct
[ H.p viz_deps_iframe]; [ H.p viz_deps_iframe];
if not @@ contains_debug_bin artifacts then [] else [ if not @@ contains_debug_bin artifacts then [] else [
H.p @@ Lazy.force viz_treemap_iframe ]; H.p @@ Lazy.force viz_treemap_iframe ];
] ]
let make let make
~name ~name