From 62fa2c4ac1bc7241c75d9e209d7b37b5db607534 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Edwin=20T=C3=B6r=C3=B6k?= Date: Wed, 25 Sep 2024 14:19:36 +0100 Subject: [PATCH] Rpc_genfake.gentest: move comment to docstring MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Edwin Török --- src/lib/rpc_genfake.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lib/rpc_genfake.ml b/src/lib/rpc_genfake.ml index 499051a..6033c61 100644 --- a/src/lib/rpc_genfake.ml +++ b/src/lib/rpc_genfake.ml @@ -13,8 +13,6 @@ end module Seen = Set.Make(SeenType) -(* don't use this on recursive types! *) - let rec gentest : type a. Seen.t -> a typ -> a list = fun seen t -> let seen_t = SeenType.T t in @@ -259,5 +257,7 @@ let rec gen_nice : type a. a typ -> string -> a = v.treview content) | Abstract { test_data; _ } -> List.hd test_data +(** don't use this on recursive types! *) let gentest t = gentest Seen.empty t + let genall t = genall Seen.empty t