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

minor stylistic adjustments from reading git diff -w 0afec16..6f3c89c

Browse source
This commit is contained in:
Hannes Mehnert 2022-02-24 14:05:06 +01:00
parent 6f3c89c91d
commit d6098cfa91
3 changed files with 5 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
README.md
View file

@ -58,7 +58,3 @@ see `builder-db user-add --help`):
```ocaml ```ocaml
curl --data-binary @<build-hash>.full http://<user>:<passwd>@localhost:<builder-web-port>/upload curl --data-binary @<build-hash>.full http://<user>:<passwd>@localhost:<builder-web-port>/upload
``` ```

11
lib/builder_web.ml
View file

@ -4,8 +4,6 @@ module Log = (val Logs.src_log src : Logs.LOG)
open Lwt.Syntax open Lwt.Syntax
open Lwt_result.Infix open Lwt_result.Infix
let sprintf = Printf.sprintf
let pp_error ppf = function let pp_error ppf = function
| #Caqti_error.connect as e -> Caqti_error.pp ppf e | #Caqti_error.connect as e -> Caqti_error.pp ppf e
| #Model.error as e -> Model.pp_error ppf e | #Model.error as e -> Model.pp_error ppf e
@ -147,8 +145,7 @@ let add_routes datadir configdir =
|> if_error "Error getting job" |> if_error "Error getting job"
~log:(fun e -> Log.warn (fun m -> m "Error getting job: %a" pp_error e)) ~log:(fun e -> Log.warn (fun m -> m "Error getting job: %a" pp_error e))
>>= fun (readme, builds) -> >>= fun (readme, builds) ->
builds Views.Job.make ~failed:false ~job_name ~platform ~readme builds
|> Views.Job.make ~failed:false ~job_name ~platform ~readme
|> string_of_html |> Dream.html |> Lwt_result.ok |> string_of_html |> Dream.html |> Lwt_result.ok
in in
@ -161,8 +158,7 @@ let add_routes datadir configdir =
|> if_error "Error getting job" |> if_error "Error getting job"
~log:(fun e -> Log.warn (fun m -> m "Error getting job: %a" pp_error e)) ~log:(fun e -> Log.warn (fun m -> m "Error getting job: %a" pp_error e))
>>= fun (readme, builds) -> >>= fun (readme, builds) ->
builds Views.Job.make ~failed:true ~job_name ~platform ~readme builds
|> Views.Job.make ~failed:true ~job_name ~platform ~readme
|> string_of_html |> Dream.html |> Lwt_result.ok |> string_of_html |> Dream.html |> Lwt_result.ok
in in
@ -334,7 +330,8 @@ let add_routes datadir configdir =
|> if_error "Error getting data" |> if_error "Error getting data"
~log:(fun e -> Log.warn (fun m -> m "Error getting failed builds: %a" ~log:(fun e -> Log.warn (fun m -> m "Error getting failed builds: %a"
pp_error e)) >>= fun builds -> pp_error e)) >>= fun builds ->
Views.failed_builds ~start ~count builds |> string_of_html |> Dream.html |> Lwt_result.ok Views.failed_builds ~start ~count builds
|> string_of_html |> Dream.html |> Lwt_result.ok
in in
let job_build_tar req = let job_build_tar req =

6
lib/dune
View file

@ -4,10 +4,6 @@
builder builder_db builder builder_db
dream tyxml bos duration hex caqti-lwt dream tyxml bos duration hex caqti-lwt
opamdiff ptime.clock.os omd tar opamdiff ptime.clock.os omd tar
modulectomy
opam-graph
owee owee
solo5-elftool solo5-elftool
) ))
(flags (:standard))
)