Skip to content

Commit 9f0d0bb

Browse files
authored
Merge pull request #959 from IntersectMBO/jordan/remove-arbitrary-bytestring-instance
Remove `Arbitrary ByteString` instance
2 parents 5c8e742 + c2d6dbb commit 9f0d0bb

File tree

1 file changed

+1
-4
lines changed

1 file changed

+1
-4
lines changed

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)