Re-enabled warnings as errors in dune file + fixed unused 'id' in builder_web.ml
This commit is contained in:
parent
8897f525fe
commit
b564191b81
2 changed files with 2 additions and 2 deletions
|
@ -210,7 +210,7 @@ let add_routes datadir =
|
||||||
and build = Dream.param "build" req in
|
and build = Dream.param "build" req in
|
||||||
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) ->
|
||||||
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
|
||||||
|
|
2
lib/dune
2
lib/dune
|
@ -7,6 +7,6 @@
|
||||||
modulectomy
|
modulectomy
|
||||||
opam-graph
|
opam-graph
|
||||||
)
|
)
|
||||||
(flags (:standard (-w -27-26)))
|
(flags (:standard))
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue