Skip to content

Commit 42081bc

Browse files
committed
Add todo for hard-coded reference to QCheck
1 parent 8dc9c74 commit 42081bc

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

src/ppx_deriving_qcheck/ppx_deriving_qcheck.ml

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -347,6 +347,7 @@ and gen_from_variant ~loc typ_name rws =
347347
*)
348348
let gen = sized ~loc ~env:TypeGen.empty typ_name is_rec to_gen rws in
349349
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 *)
350351
let typ_gen = A.Located.mk @@ Lident "QCheck.Gen.t" in
351352
let typ = A.ptyp_constr typ_gen [ typ_t ] in
352353
[%expr ([%e gen] : [%t typ])]

0 commit comments

Comments
 (0)