mirror of
https://github.com/github/semantic.git
synced 2024-12-23 06:41:45 +03:00
11 lines
327 B
Haskell
11 lines
327 B
Haskell
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
|
module Data.Vector.Arbitrary (module Vector) where
|
|
|
|
import Data.Vector as Vector
|
|
import Prologue
|
|
import Test.QuickCheck
|
|
|
|
instance Arbitrary a => Arbitrary (Vector.Vector a) where
|
|
arbitrary = Vector.fromList <$> listOf1 arbitrary
|
|
shrink a = Vector.fromList <$> shrink (Vector.toList a)
|