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

Rely on redirect also for Accept: json

Browse source
This commit is contained in:
Reynir Björnsson 2024-12-20 10:13:30 +01:00
parent 92ee6b9aaf
commit 23db42fed3
1 changed files with 3 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lib/builder_web.ml
View file

@ -330,18 +330,9 @@ 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 Dream.redirect req
| Some accept when String.starts_with ~prefix:"application/json" accept -> (Link.Job_build_artifact.make_from_string ~job_name ~build ~artifact ())
let json_response = |> Lwt_result.ok
`Assoc [
"uuid", `String (Uuidm.to_string build);
] |> Yojson.Basic.to_string
in
Dream.json ~status:`OK json_response |> Lwt_result.ok
| _ ->
Dream.redirect req
(Link.Job_build_artifact.make_from_string ~job_name ~build ~artifact ())
|> Lwt_result.ok
in in
let redirect_latest req = let redirect_latest req =