1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{-# LANGUAGE CPP #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Arbitrary where
import Test.QuickCheck
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as L
#if MIN_VERSION_bytestring(0,10,4)
import qualified Data.ByteString.Short as S
#endif
instance Arbitrary L.ByteString where
arbitrary = fmap L.fromChunks arbitrary
instance Arbitrary B.ByteString where
arbitrary = B.pack `fmap` arbitrary
#if MIN_VERSION_bytestring(0,10,4)
instance Arbitrary S.ShortByteString where
arbitrary = S.toShort `fmap` arbitrary
#endif
|
