diff --git a/ouroboros-consensus-cardano/src/shelley/Ouroboros/Consensus/Shelley/Ledger/Mempool.hs b/ouroboros-consensus-cardano/src/shelley/Ouroboros/Consensus/Shelley/Ledger/Mempool.hs index 49eaadb157..4ca63232ac 100644 --- a/ouroboros-consensus-cardano/src/shelley/Ouroboros/Consensus/Shelley/Ledger/Mempool.hs +++ b/ouroboros-consensus-cardano/src/shelley/Ouroboros/Consensus/Shelley/Ledger/Mempool.hs @@ -42,7 +42,7 @@ import qualified Cardano.Ledger.Allegra.Rules as AllegraEra import Cardano.Ledger.Alonzo.Core (Tx, TxSeq, bodyTxL, eraProtVerLow, fromTxSeq, ppMaxBBSizeL, ppMaxBlockExUnitsL, sizeTxF) import qualified Cardano.Ledger.Alonzo.Rules as AlonzoEra -import Cardano.Ledger.Alonzo.Scripts (ExUnits, ExUnits'(..), +import Cardano.Ledger.Alonzo.Scripts (ExUnits, ExUnits' (..), pointWiseExUnits, unWrapExUnits) import Cardano.Ledger.Alonzo.Tx (totExUnits) import qualified Cardano.Ledger.Api as L diff --git a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Ledger/SupportsMempool.hs b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Ledger/SupportsMempool.hs index a8b87b15d4..d63c668693 100644 --- a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Ledger/SupportsMempool.hs +++ b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Ledger/SupportsMempool.hs @@ -7,7 +7,6 @@ module Ouroboros.Consensus.Ledger.SupportsMempool ( ApplyTxErr , ByteSize (..) - , fromByteSize , ConvertRawTxId (..) , GenTx , GenTxId @@ -15,11 +14,12 @@ module Ouroboros.Consensus.Ledger.SupportsMempool ( , HasTxId (..) , HasTxs (..) , LedgerSupportsMempool (..) - , TxMeasureMetrics (..) , TxId , TxLimits (..) + , TxMeasureMetrics (..) , Validated , WhetherToIntervene (..) + , fromByteSize ) where import Control.DeepSeq (NFData) diff --git a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/MiniProtocol/LocalTxMonitor/Server.hs b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/MiniProtocol/LocalTxMonitor/Server.hs index 381a1bf2c4..5081e2e153 100644 --- a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/MiniProtocol/LocalTxMonitor/Server.hs +++ b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/MiniProtocol/LocalTxMonitor/Server.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE TypeFamilies #-} @@ -6,10 +6,10 @@ module Ouroboros.Consensus.MiniProtocol.LocalTxMonitor.Server (localTxMonitorServer) where -import qualified Data.Measure as Measure -import Data.Word (Word32) -import Data.Map.Strict (Map) +import Data.Map.Strict (Map) import qualified Data.Map.Strict as Map +import qualified Data.Measure as Measure +import Data.Word (Word32) import Ouroboros.Consensus.Block import Ouroboros.Consensus.Ledger.SupportsMempool import Ouroboros.Consensus.Mempool