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

{-# OPTIONS_GHC -Wno-orphans #-}
module Data.ByteString.Arbitrary () where

import Data.ByteString (ByteString)
import Test.QuickCheck (Arbitrary(..))
import qualified Data.ByteString.Char8

instance Arbitrary ByteString where
  arbitrary = Data.ByteString.Char8.pack <$> arbitrary
  shrink xs = Data.ByteString.Char8.pack <$> shrink (Data.ByteString.Char8.unpack xs)