We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 8dc9c74 commit 42081bcCopy full SHA for 42081bc
src/ppx_deriving_qcheck/ppx_deriving_qcheck.ml
@@ -347,6 +347,7 @@ and gen_from_variant ~loc typ_name rws =
347
*)
348
let gen = sized ~loc ~env:TypeGen.empty typ_name is_rec to_gen rws in
349
let typ_t = A.ptyp_constr (A.Located.mk @@ Lident typ_name) [] in
350
+ (* TODO: mutualize this ident for https://github.com/c-cube/qcheck/issues/190 *)
351
let typ_gen = A.Located.mk @@ Lident "QCheck.Gen.t" in
352
let typ = A.ptyp_constr typ_gen [ typ_t ] in
353
[%expr ([%e gen] : [%t typ])]
0 commit comments