refactor(rpc): add [Call.to_dyn] (#6790)

Signed-off-by: Rudi Grinberg <me@rgrinberg.com>
ocaml · Dec 28, 2022 · c80fa7c · c80fa7c
1 parent 8bc998b
commit c80fa7c
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 0 deletions.
diff --git a/otherlibs/dune-rpc/private/dune_rpc_private.mli b/otherlibs/dune-rpc/private/dune_rpc_private.mli
@@ -60,6 +60,8 @@ module Version_error : sig
 
   val message : t -> string
 
+  val to_dyn : t -> Dyn.t
+
   exception E of t
 end
 

diff --git a/otherlibs/dune-rpc/private/versioned.ml b/otherlibs/dune-rpc/private/versioned.ml
@@ -11,6 +11,12 @@ module Version_error = struct
 
   let message t = t.message
 
+  let to_dyn { payload; message } =
+    Dyn.record
+      [ ("message", Dyn.string message)
+      ; ("payload", Dyn.(option Sexp.to_dyn) payload)
+      ]
+
   let create ?payload ~message () = { payload; message }
 
   exception E of t

diff --git a/otherlibs/dune-rpc/private/versioned.mli b/otherlibs/dune-rpc/private/versioned.mli
@@ -10,6 +10,8 @@ module Version_error : sig
 
   val message : t -> string
 
+  val to_dyn : t -> Dyn.t
+
   exception E of t
 end
-Original file line number
+Diff line change
@@ Expand Up / @@ -60,6 +60,8 @@ module Version_error : sig @@
       val message : t -> string
+      val to_dyn : t -> Dyn.t
       exception E of t
     end
@@ Expand Down @@