Added a is_jsonrpc_value utility.

diff --git a/libs/jsonrpc/jsonrpc.ml b/libs/jsonrpc/jsonrpc.ml
index ca6ca11ff2b91046c54ef9763ceac41f921c82f7..405bd9ce3353aa0f80001bfe08bff6abfc996d18 100644 (file)
--- a/libs/jsonrpc/jsonrpc.ml
+++ b/libs/jsonrpc/jsonrpc.ml
@@ -168,3 +168,6 @@ let rpc_type_of_json j =
                Response (response_of_json j)
        with _ ->
                Non_JSONRPC
+
+let is_jsonrpc_value j =
+       rpc_type_of_json j <> Non_JSONRPC

diff --git a/libs/jsonrpc/jsonrpc.mli b/libs/jsonrpc/jsonrpc.mli
index 46ef33279d332f2b9ef2d2f43bef313112b98d54..e60337b7ebcc7a8e443e381c082c9a001503c294 100644 (file)
--- a/libs/jsonrpc/jsonrpc.mli
+++ b/libs/jsonrpc/jsonrpc.mli
@@ -77,3 +77,4 @@ type rpc_type =
        | Response of rpc_response
 
 val rpc_type_of_json: Json.t -> rpc_type
+val is_jsonrpc_value: Json.t -> bool