diff --git a/lib/builder_web.ml b/lib/builder_web.ml index 166f383..5acae36 100644 --- a/lib/builder_web.ml +++ b/lib/builder_web.ml @@ -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) = diff --git a/lib/views.ml b/lib/views.ml index 32405c5..f73683b 100644 --- a/lib/views.ml +++ b/lib/views.ml @@ -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);