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 "/" builder;
App.get "/job/:job" job; App.get "/job/:job/" job;
App.get "/job/:job/run/:run" job_run; App.get "/job/:job/run/:run/" job_run;
] ]
let add_routes t (app : App.t) = 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 -> ul (List.map (fun job ->
li [ li [
a ~a:[a_href ("job/" ^ Model.job_name job)] a ~a:[a_href ("job/" ^ Model.job_name job ^ "/")]
[txt (Model.job_name job)]; [txt (Model.job_name job)];
]) ])
jobs); jobs);
@ -33,7 +33,7 @@ let job job =
]; ];
ul (List.map (fun (run : Fpath.t) -> ul (List.map (fun (run : Fpath.t) ->
li [ 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]; [txtf "%a" Fpath.pp run];
]) ])
job.Model.runs); job.Model.runs);