Rpc_genfake.gentest: move comment to docstring

Signed-off-by: Edwin Török <[email protected]>
mirage · Sep 25, 2024 · 62fa2c4 · 62fa2c4
1 parent 72938a6
commit 62fa2c4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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