Fixup plutus-pab

IntersectMBO · Apr 16, 2021 · 3c27afb · 3c27afb
1 parent 68339b8
commit 3c27afb
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/plutus-pab/src/Plutus/PAB/Arbitrary.hs b/plutus-pab/src/Plutus/PAB/Arbitrary.hs
@@ -18,7 +18,7 @@ import qualified Ledger.Bytes                             as LedgerBytes
 import           Ledger.Crypto                            (PubKey, PubKeyHash, Signature)
 import           Ledger.Interval                          (Extended, Interval, LowerBound, UpperBound)
 import           Ledger.Slot                              (Slot)
-import           Ledger.Tx                                (TxIn, TxInType, TxOutRef, TxOutType)
+import           Ledger.Tx                                (TxIn, TxInType, TxOutRef)
 import           Ledger.TxId                              (TxId)
 import           Plutus.Contract.Effects.AwaitSlot        (WaitingForSlot (..))
 import           Plutus.Contract.Effects.AwaitTxConfirmed (TxConfirmed (..))
@@ -57,10 +57,6 @@ instance Arbitrary TxIn where
     arbitrary = genericArbitrary
     shrink = genericShrink
 
-instance Arbitrary TxOutType where
-    arbitrary = genericArbitrary
-    shrink = genericShrink
-
 instance Arbitrary TxOutRef where
     arbitrary = genericArbitrary
     shrink = genericShrink
@@ -158,7 +154,7 @@ instance Arbitrary ContractPABRequest where
             ]
 
 instance Arbitrary Address where
-    arbitrary = oneof [PubKeyAddress <$> arbitrary, ScriptAddress <$> arbitrary]
+    arbitrary = oneof [Ledger.pubKeyAddress <$> arbitrary, Ledger.scriptAddress <$> arbitrary]
 
 instance Arbitrary ValidatorHash where
     arbitrary = ValidatorHash <$> arbitrary