Skip to content

Commit c2d6dbb

Browse files
committed
Remove Arbitrary ByteString instance and use the one provided by
`quickcheck-instances`
1 parent 5c8e742 commit c2d6dbb

1 file changed

Lines changed: 1 addition & 4 deletions

File tree

cardano-api/gen/Test/Gen/Cardano/Api/Orphans.hs

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -41,7 +41,6 @@ import Cardano.Ledger.Shelley.PParams (ShelleyPParams)
4141

4242
import Control.Monad (replicateM)
4343
import Control.Monad.Trans.Fail.String (errorFail)
44-
import Data.ByteString.Char8 qualified as C8
4544
import Data.ByteString.Short qualified as SBS
4645
import Data.Foldable qualified as F
4746
import Data.Functor.Identity
@@ -83,6 +82,7 @@ import Test.QuickCheck
8382
, vectorOf
8483
)
8584
import Test.QuickCheck.Gen (Gen (MkGen))
85+
import Test.QuickCheck.Instances.ByteString ()
8686
import Test.QuickCheck.Instances.Natural ()
8787

8888
import Generic.Random (genericArbitraryU)
@@ -307,9 +307,6 @@ instance Arbitrary IPv6 where
307307
instance Arbitrary L.PoolMetadata where
308308
arbitrary = L.PoolMetadata <$> arbitrary <*> arbitrary
309309

310-
instance Arbitrary Crypto.ByteString where
311-
arbitrary = C8.pack <$> arbitrary
312-
313310
instance Arbitrary L.ExUnits where
314311
arbitrary = L.ExUnits <$> genUnit <*> genUnit
315312
where

0 commit comments

Comments
 (0)