From 2a1b75ba2b7a60721bf108e1e2ebdde1856cf058 Mon Sep 17 00:00:00 2001 From: rand00 Date: Fri, 28 Jan 2022 10:15:38 +0100 Subject: [PATCH] Removals of uncommented code and unneccesary parens --- bin/visualizations/builder_viz.ml | 3 --- lib/builder_web.ml | 8 ++------ 2 files changed, 2 insertions(+), 9 deletions(-) diff --git a/bin/visualizations/builder_viz.ml b/bin/visualizations/builder_viz.ml index 39f2154..bf63793 100644 --- a/bin/visualizations/builder_viz.ml +++ b/bin/visualizations/builder_viz.ml @@ -3,9 +3,6 @@ module Log = (val Logs.src_log src : Logs.LOG) open Rresult -(* open Lwt.Syntax - * open Lwt_result.Infix *) - let read_file file = try let fh = open_in file in diff --git a/lib/builder_web.ml b/lib/builder_web.ml index bd7c975..df5e60b 100644 --- a/lib/builder_web.ml +++ b/lib/builder_web.ml @@ -211,8 +211,6 @@ let add_routes datadir = get_uuid build >>= fun uuid -> ( Dream.sql req (Model.build uuid) >>= fun (id, build) -> - (* filepath = bin/caldav.hvt - localpath = caldav-monitoring//output/bin/caldav.hvt in datadir *) 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 -> 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 and build = Dream.param "build" req in get_uuid build >>= fun uuid -> - ( - let opam_switch_path = Fpath.(v "opam-switch") in - Dream.sql req (Model.build_artifact uuid opam_switch_path) - ) + let opam_switch_path = Fpath.(v "opam-switch") in + Dream.sql req (Model.build_artifact uuid opam_switch_path) |> if_error "Error getting job build" ~log:(fun e -> Log.warn (fun m -> m "Error getting job data: %a" pp_error e)) >>= fun opam_switch ->