From 487d7d413363921a8ffbb941610c2f71c811add8 Mon Sep 17 00:00:00 2001 From: Kate Date: Wed, 10 Dec 2025 13:36:11 +0000 Subject: [PATCH] Upgrade github-unix to yojson 3.0.0 --- gist/json.ml | 21 --------------------- github-unix.opam | 1 + 2 files changed, 1 insertion(+), 21 deletions(-) diff --git a/gist/json.ml b/gist/json.ml index e8a0808a..b7436195 100644 --- a/gist/json.ml +++ b/gist/json.ml @@ -42,28 +42,7 @@ let rec format std (x : Yojson.t) = | `List l -> List (("[", ",", "]", array), List.map (format std) l) | `Assoc [] -> Atom ("{}", atom) | `Assoc l -> List (("{", ",", "}", record), List.map (format_field std) l) - | `Tuple l -> - if std then - format std (`List l) - else - if l = [] then - Atom ("()", atom) - else - List (("(", ",", ")", tuple), List.map (format std) l) - | `Variant (s, None) -> - if std then - format std (`String s) - else - Atom ("<" ^ json_string_of_string s ^ ">", atom) - - | `Variant (s, Some x) -> - if std then - format std (`List [ `String s; x ]) - else - let op = "<" ^ json_string_of_string s ^ ":" in - List ((op, "", ">", variant), [format std x]) - and format_field std (name, x) = (*let s = sprintf "%s:" (json_string_of_string name) in*) let s = json_string_of_ident name in diff --git a/github-unix.opam b/github-unix.opam index 65b34639..276a63f1 100644 --- a/github-unix.opam +++ b/github-unix.opam @@ -29,6 +29,7 @@ depends: [ "cohttp-lwt-unix" {>= "4.0.0"} "stringext" "cmdliner" {>= "1.1.0"} + "yojson" {>= "3.0.0"} "base-unix" "lwt" ]