Remove trailing whitespace
This commit is contained in:
parent
6a248b930c
commit
43b9bf93ed
4 changed files with 8 additions and 8 deletions
|
@ -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…
Reference in a new issue