Update src/Codec/CBOR/Cuddle/CBOR/Gen.hs

Co-authored-by: Alexey Kuleshevich <[email protected]>

Author: Soupstraw

src/Codec/CBOR/Cuddle/CBOR/Gen.hs

@@ -418,7 +418,7 @@ generateCBORTerm cddl n stdGen =
    in evalGen (genForName n) genEnv genState
 
 generateCBORTerm' ::
-  (RandomGen g, StatefulGen g (M g)) => CTreeRoot' Identity MonoRef -> Name -> g -> (Term, g)
+  RandomGen g => CTreeRoot' Identity MonoRef -> Name -> g -> (Term, g)
 generateCBORTerm' cddl n stdGen =
   let genEnv = GenEnv {cddl}
       genState = GenState {randomSeed = stdGen, depth = 1}