@@ -23,8 +23,10 @@ import BotPlutusInterface.Types (
2323 )
2424import Cardano.Api (CardanoMode , EraHistory )
2525import Cardano.Api qualified as CAPI
26- import Cardano.Ledger.Alonzo.PParams (_protocolVersion , PParams )
26+ import Cardano.Ledger.Alonzo (AlonzoEra )
27+ import Cardano.Ledger.Alonzo.PParams (PParams , _protocolVersion )
2728import Cardano.Ledger.Alonzo.TxInfo (slotToPOSIXTime )
29+ import Cardano.Ledger.Crypto (StandardCrypto )
2830import Cardano.Ledger.Slot (EpochInfo )
2931import Cardano.Slotting.EpochInfo (hoistEpochInfo )
3032import Cardano.Slotting.Time (SystemStart , toRelativeTime )
@@ -53,8 +55,6 @@ import Ouroboros.Consensus.HardFork.History qualified as Consensus
5355import Ouroboros.Consensus.HardFork.History.Qry qualified as HF
5456import System.Environment (getEnv )
5557import Prelude
56- import Cardano.Ledger.Crypto (StandardCrypto )
57- import Cardano.Ledger.Alonzo (AlonzoEra )
5858
5959-- | Error returned by the functions of this module
6060data TimeSlotConversionError
@@ -134,7 +134,7 @@ posixTimeRangeToContainedSlotRangeIO
134134
135135 pure range
136136 where
137- -- helper to convert `Extended POSIXTime` to `Extended Slot`
137+ -- helper to convert `Extended POSIXTime` to `Extended Slot`
138138 -- using `posixTimeToSlot`
139139 convertExtended ::
140140 Monad m =>
@@ -153,7 +153,7 @@ posixTimeRangeToContainedSlotRangeIO
153153 -- https://github.com/input-output-hk/plutus-apps/blob/e51f57fa99f4cc0942ba6476b0689e43f0948eb3/plutus-ledger/src/Ledger/TimeSlot.hs#L125-L130
154154 getExtClosure ::
155155 PParams (AlonzoEra StandardCrypto ) ->
156- EpochInfo (Either CAPI. TransactionValidityError ) ->
156+ EpochInfo (Either CAPI. TransactionValidityError ) ->
157157 SystemStart ->
158158 Extended Ledger. Slot ->
159159 Bool -> -- current `Closure` of lower or upper bound of `Ledger.POSIXTimeRange`
0 commit comments