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

Fix URLs

Browse source
This commit is contained in:
Reynir Björnsson 2020-12-07 10:43:57 +01:00
parent 41b0b6c031
commit 1b0259e084
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/builder_web.ml
View file

@ -43,8 +43,8 @@ let routes (t : Model.t) =
[
App.get "/" builder;
App.get "/job/:job" job;
App.get "/job/:job/run/:run" job_run;
App.get "/job/:job/" job;
App.get "/job/:job/run/:run/" job_run;
]
let add_routes t (app : App.t) =

4
lib/views.ml
View file

@ -17,7 +17,7 @@ let builder jobs =
];
ul (List.map (fun job ->
li [
a ~a:[a_href ("job/" ^ Model.job_name job)]
a ~a:[a_href ("job/" ^ Model.job_name job ^ "/")]
[txt (Model.job_name job)];
])
jobs);
@ -33,7 +33,7 @@ let job job =
];
ul (List.map (fun (run : Fpath.t) ->
li [
a ~a:[a_href Fpath.(to_string (job.path / "run" // run))]
a ~a:[a_href Fpath.(to_string (v "run" // run) ^ "/")]
[txtf "%a" Fpath.pp run];
])
job.Model.runs);