From c7a1246e98899b9a6e9284a08c4ecaf006b8f2e5 Mon Sep 17 00:00:00 2001 From: Prashanth Mundkur Date: Thu, 4 Jun 2009 11:43:52 -0700 Subject: [PATCH] Added a is_jsonrpc_value utility. --- libs/jsonrpc/jsonrpc.ml | 3 +++ libs/jsonrpc/jsonrpc.mli | 1 + 2 files changed, 4 insertions(+) diff --git a/libs/jsonrpc/jsonrpc.ml b/libs/jsonrpc/jsonrpc.ml index ca6ca11..405bd9c 100644 --- 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 46ef332..e60337b 100644 --- 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 -- 2.39.5