Unverified Commit 5c2fc11c authored by zapashcanon's avatar zapashcanon
Browse files

minor fix (no transitive deps)

parent 2a95bceb
...@@ -8,6 +8,8 @@ ...@@ -8,6 +8,8 @@
(maintainers "Léo Andrès <contact@ndrs.fr>") (maintainers "Léo Andrès <contact@ndrs.fr>")
(implicit_transitive_deps false)
(source (source
(github ocamlpro/osh)) (github ocamlpro/osh))
......
...@@ -9,4 +9,4 @@ let () = ...@@ -9,4 +9,4 @@ let () =
| Error (_code, msg) -> | Error (_code, msg) ->
Format.eprintf "error: %s@." msg; Format.eprintf "error: %s@." msg;
exit 1 exit 1
| Ok badge -> Format.printf "Here's your badge:@.%s@." badge.body | Ok badge -> Format.printf "Here's your badge:@.%s@." badge.Ezcurl.body
(executable (executable
(name server) (name server)
(modules content server template) (modules content server template)
(libraries dream ezcurl ocb omd)) (libraries dream ezcurl ocb omd yojson))
(rule (rule
(targets template.ml) (targets template.ml)
......
...@@ -76,7 +76,7 @@ let () = ...@@ -76,7 +76,7 @@ let () =
(Format.sprintf "Failed to query the API: curl error: %s" msg) (Format.sprintf "Failed to query the API: curl error: %s" msg)
| Ok response -> ( | Ok response -> (
let open Yojson.Basic in let open Yojson.Basic in
let response = from_string response.body in let response = from_string response.Ezcurl.body in
let response = let response =
response |> Util.member "workflow_runs" |> Util.to_list response |> Util.member "workflow_runs" |> Util.to_list
in in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment