hnix-store-tests-0.1.0.0: src/Data/HashSet/Arbitrary.hs

{-# OPTIONS_GHC -fno-warn-orphans #-}
module Data.HashSet.Arbitrary where

import Data.Hashable (Hashable)
import Data.HashSet (HashSet)
import Test.QuickCheck (Arbitrary(..))
import qualified Data.HashSet

instance (Hashable a, Eq a, Arbitrary a) => Arbitrary (HashSet a) where
  arbitrary = Data.HashSet.fromList <$> arbitrary
  shrink hashset = Data.HashSet.fromList <$> shrink (Data.HashSet.toList hashset)