better output

ef09aea7 · zapashcanon · de07f695 · ef09aea7
Unverified Commit ef09aea7 authored Nov 25, 2021 by zapashcanon
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 2 deletions

src/osh.ml src/osh.ml +1 -2

No files found.
--- a/src/osh.ml
+++ b/src/osh.ml
@@ -153,8 +153,7 @@ let badge_https_domain =
        Ok code
      else
        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 ());