{-# 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 (m :: * -> *) a. Monad m => a -> m a
return []