genvalidity-bytestring-0.1.0.0: src/Data/GenValidity/ByteString.hs

{-# OPTIONS_GHC -fno-warn-orphans #-}
{-# LANGUAGE CPP #-}

module Data.GenValidity.ByteString where

import Data.GenValidity
import Data.Validity.ByteString ()
#if !MIN_VERSION_base(4,8,0)
import Data.Functor ((<$>))
#endif
import qualified Data.ByteString as SB
import Data.ByteString (ByteString)

instance GenUnchecked ByteString where
    genUnchecked = SB.pack <$> genUnchecked
    shrinkUnchecked = fmap SB.pack . shrinkUnchecked . SB.unpack

instance GenValid ByteString

instance GenInvalid ByteString