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

Removals of uncommented code and unneccesary parens

Browse source
This commit is contained in:
rand00 2022-01-28 10:15:38 +01:00 committed by Reynir Björnsson
parent 6f95f7e965
commit 2a1b75ba2b
2 changed files with 2 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
bin/visualizations/builder_viz.ml
View file

@ -3,9 +3,6 @@ module Log = (val Logs.src_log src : Logs.LOG)
open Rresult open Rresult
(* open Lwt.Syntax
* open Lwt_result.Infix *)
let read_file file = let read_file file =
try try
let fh = open_in file in let fh = open_in file in

8
lib/builder_web.ml
View file

@ -211,8 +211,6 @@ let add_routes datadir =
get_uuid build >>= fun uuid -> get_uuid build >>= fun uuid ->
( (
Dream.sql req (Model.build uuid) >>= fun (id, build) -> Dream.sql req (Model.build uuid) >>= fun (id, build) ->
(* filepath = bin/caldav.hvt
localpath = caldav-monitoring/<uuid>/output/bin/caldav.hvt in datadir *)
Model.not_found build.Builder_db.Build.main_binary >>= fun main_binary_id -> Model.not_found build.Builder_db.Build.main_binary >>= fun main_binary_id ->
Dream.sql req (Model.build_artifact_by_id main_binary_id) >>= fun main_binary -> Dream.sql req (Model.build_artifact_by_id main_binary_id) >>= fun main_binary ->
let debug_binary_path = Fpath.(base main_binary.Builder_db.filepath + "debug") in let debug_binary_path = Fpath.(base main_binary.Builder_db.filepath + "debug") in
@ -237,10 +235,8 @@ let add_routes datadir =
let _job_name = Dream.param "job" req let _job_name = Dream.param "job" req
and build = Dream.param "build" req in and build = Dream.param "build" req in
get_uuid build >>= fun uuid -> get_uuid build >>= fun uuid ->
( let opam_switch_path = Fpath.(v "opam-switch") in
let opam_switch_path = Fpath.(v "opam-switch") in Dream.sql req (Model.build_artifact uuid opam_switch_path)
Dream.sql req (Model.build_artifact uuid opam_switch_path)
)
|> if_error "Error getting job build" |> if_error "Error getting job build"
~log:(fun e -> Log.warn (fun m -> m "Error getting job data: %a" pp_error e)) ~log:(fun e -> Log.warn (fun m -> m "Error getting job data: %a" pp_error e))
>>= fun opam_switch -> >>= fun opam_switch ->