{-# OPTIONS_GHC -Wno-orphans #-}

module Test.ThreadNet.TxGen.Byron () where

import           Ouroboros.Consensus.Byron.Ledger
import           Test.ThreadNet.TxGen

instance TxGen ByronBlock where
  -- We don't generate transactions for 'ByronBlock', but we do for
  -- 'DualByronBlock'.
  testGenTxs :: CoreNodeId
-> NumCoreNodes
-> SlotNo
-> TopLevelConfig ByronBlock
-> TxGenExtra ByronBlock
-> LedgerState ByronBlock
-> Gen [GenTx ByronBlock]
testGenTxs CoreNodeId
_ NumCoreNodes
_ SlotNo
_ TopLevelConfig ByronBlock
_ TxGenExtra ByronBlock
_ LedgerState ByronBlock
_ = [GenTx ByronBlock] -> Gen [GenTx ByronBlock]
forall a. a -> Gen a
forall (m :: * -> *) a. Monad m => a -> m a
return []