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

return uuid of latest build when header contains an accept json

Browse source
This commit is contained in:
PizieDust 2024-12-19 12:22:07 +01:00
parent 9bd42944a9
commit 55d4091256
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lib/builder_web.ml
View file

@ -330,6 +330,15 @@ let routes ~datadir ~cachedir ~configdir ~expired_jobs =
Dream.sql req (Model.latest_successful_build_uuid job_id platform)) Dream.sql req (Model.latest_successful_build_uuid job_id platform))
>>= Model.not_found >>= Model.not_found
|> if_error "Error getting job" >>= fun build -> |> if_error "Error getting job" >>= fun build ->
match Dream.header req "Accept" with
| Some accept when String.starts_with ~prefix:"application/json" accept ->
let json_response =
`Assoc [
"uuid", `String (Uuidm.to_string build);
] |> Yojson.Basic.to_string
in
Dream.json ~status:`OK json_response |> Lwt_result.ok
| _ ->
Dream.redirect req Dream.redirect req
(Link.Job_build_artifact.make_from_string ~job_name ~build ~artifact ()) (Link.Job_build_artifact.make_from_string ~job_name ~build ~artifact ())
|> Lwt_result.ok |> Lwt_result.ok