diff --git a/lib/builder_web.ml b/lib/builder_web.ml index 43b309a..f5ef491 100644 --- a/lib/builder_web.ml +++ b/lib/builder_web.ml @@ -210,7 +210,7 @@ let add_routes datadir = and build = Dream.param "build" req in get_uuid build >>= fun uuid -> ( - Dream.sql req (Model.build uuid) >>= fun (id, build) -> + Dream.sql req (Model.build uuid) >>= fun (_id, build) -> 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 diff --git a/lib/dune b/lib/dune index 47381e2..eff63a1 100644 --- a/lib/dune +++ b/lib/dune @@ -7,6 +7,6 @@ modulectomy opam-graph ) - (flags (:standard (-w -27-26))) + (flags (:standard)) )