@@ -23,8 +23,10 @@ import BotPlutusInterface.Types (
23
23
)
24
24
import Cardano.Api (CardanoMode , EraHistory )
25
25
import 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 )
27
28
import Cardano.Ledger.Alonzo.TxInfo (slotToPOSIXTime )
29
+ import Cardano.Ledger.Crypto (StandardCrypto )
28
30
import Cardano.Ledger.Slot (EpochInfo )
29
31
import Cardano.Slotting.EpochInfo (hoistEpochInfo )
30
32
import Cardano.Slotting.Time (SystemStart , toRelativeTime )
@@ -53,8 +55,6 @@ import Ouroboros.Consensus.HardFork.History qualified as Consensus
53
55
import Ouroboros.Consensus.HardFork.History.Qry qualified as HF
54
56
import System.Environment (getEnv )
55
57
import Prelude
56
- import Cardano.Ledger.Crypto (StandardCrypto )
57
- import Cardano.Ledger.Alonzo (AlonzoEra )
58
58
59
59
-- | Error returned by the functions of this module
60
60
data TimeSlotConversionError
@@ -134,7 +134,7 @@ posixTimeRangeToContainedSlotRangeIO
134
134
135
135
pure range
136
136
where
137
- -- helper to convert `Extended POSIXTime` to `Extended Slot`
137
+ -- helper to convert `Extended POSIXTime` to `Extended Slot`
138
138
-- using `posixTimeToSlot`
139
139
convertExtended ::
140
140
Monad m =>
@@ -153,7 +153,7 @@ posixTimeRangeToContainedSlotRangeIO
153
153
-- https://github.com/input-output-hk/plutus-apps/blob/e51f57fa99f4cc0942ba6476b0689e43f0948eb3/plutus-ledger/src/Ledger/TimeSlot.hs#L125-L130
154
154
getExtClosure ::
155
155
PParams (AlonzoEra StandardCrypto ) ->
156
- EpochInfo (Either CAPI. TransactionValidityError ) ->
156
+ EpochInfo (Either CAPI. TransactionValidityError ) ->
157
157
SystemStart ->
158
158
Extended Ledger. Slot ->
159
159
Bool -> -- current `Closure` of lower or upper bound of `Ledger.POSIXTimeRange`
0 commit comments