Builder_web: Removed boilerplate for generating vizs
This commit is contained in:
parent
7356950897
commit
1827320f8c
1 changed files with 4 additions and 15 deletions
|
@ -211,23 +211,12 @@ let add_routes datadir configdir =
|
|||
) |> Lwt_result.map_err (fun exn -> `Msg (Printexc.to_string exn))
|
||||
in
|
||||
|
||||
let job_build_viztreemap req =
|
||||
let job_build_viz viz_typ req =
|
||||
let _job_name = Dream.param "job" req
|
||||
and build = Dream.param "build" req
|
||||
and datadir = Dream.global datadir_global req in
|
||||
get_uuid build >>= fun uuid ->
|
||||
(try_load_cached_visualization ~datadir ~uuid `Treemap
|
||||
|> if_error "Error getting cached visualization")
|
||||
>>= fun svg_html ->
|
||||
Lwt_result.ok (Dream.html svg_html)
|
||||
in
|
||||
|
||||
let job_build_vizdependencies req =
|
||||
let _job_name = Dream.param "job" req
|
||||
and build = Dream.param "build" req
|
||||
and datadir = Dream.global datadir_global req in
|
||||
get_uuid build >>= fun uuid ->
|
||||
(try_load_cached_visualization ~datadir ~uuid `Dependencies
|
||||
(try_load_cached_visualization ~datadir ~uuid viz_typ
|
||||
|> if_error "Error getting cached visualization")
|
||||
>>= fun svg_html ->
|
||||
Lwt_result.ok (Dream.html svg_html)
|
||||
|
@ -486,8 +475,8 @@ let add_routes datadir configdir =
|
|||
Dream.get "/job/:job/build/:build/" (w job_build);
|
||||
Dream.get "/job/:job/build/:build/f/**" (w job_build_file);
|
||||
Dream.get "/job/:job/build/:build/main-binary" (w redirect_main_binary);
|
||||
Dream.get "/job/:job/build/:build/viztreemap" (w job_build_viztreemap);
|
||||
Dream.get "/job/:job/build/:build/vizdependencies" (w job_build_vizdependencies);
|
||||
Dream.get "/job/:job/build/:build/viztreemap" (w @@ job_build_viz `Treemap);
|
||||
Dream.get "/job/:job/build/:build/vizdependencies" (w @@ job_build_viz `Dependencies);
|
||||
Dream.get "/job/:job/build/:build/script" (w (job_build_static_file `Script));
|
||||
Dream.get "/job/:job/build/:build/console" (w (job_build_static_file `Console));
|
||||
Dream.get "/failed-builds/" (w failed_builds);
|
||||
|
|
Loading…
Reference in a new issue