Unverified Commit ef09aea7 authored by zapashcanon's avatar zapashcanon
Browse files

better output

parent de07f695
Pipeline #16827 passed with stages
in 7 minutes and 50 seconds
......@@ -153,8 +153,7 @@ let badge_https_domain =
Ok code
match Ezcurl.get ~url () with
| Error (_code, msg) ->
Error (Format.sprintf "Failed to query the API: curl error: %s" msg)
| Error (_code, msg) -> Error (Format.sprintf "%s" msg)
| Ok response ->
let code = response.Ezcurl.code in
Hashtbl.replace tbl url (code, Unix.time ());
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