Skip to content

Commit b7f47a6

Browse files
authored
fixing genericCoarbitrary (#99)
1 parent 9eef016 commit b7f47a6

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/Test/QuickCheck/Arbitrary.purs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -240,8 +240,8 @@ genericArbitrary :: forall a rep. Generic a rep => Arbitrary rep => Gen a
240240
genericArbitrary = to <$> (arbitrary :: Gen rep)
241241

242242
-- | A `Generic` implementation of the `coarbitrary` member from the `Coarbitrary` type class.
243-
genericCoarbitrary :: forall a rep. Generic a rep => Coarbitrary rep => a -> Gen a -> Gen a
244-
genericCoarbitrary x g = to <$> coarbitrary (from x) (from <$> g)
243+
genericCoarbitrary :: forall a rep t. Generic a rep => Coarbitrary rep => a -> Gen t -> Gen t
244+
genericCoarbitrary x = coarbitrary (from x)
245245

246246
-- | A helper typeclass to implement `Arbitrary` for records.
247247
class ArbitraryRowList :: RL.RowList Type -> Row Type -> Constraint

0 commit comments

Comments
 (0)