wakame-0.1.0.0: test/tasty/Test/Utils.hs

module Test.Utils where


import Test.QuickCheck (Arbitrary (..))
import Wakame.Row (V (..))


instance Arbitrary a => Arbitrary (V '(k, a)) where
  arbitrary = V <$> arbitrary
  shrink (V x) = V <$> shrink x