Skip to content

Commit

Permalink
sylish-haskell: apply changes
Browse files Browse the repository at this point in the history
  • Loading branch information
disassembler committed Jun 18, 2024
1 parent 5056bd9 commit 7e2a417
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions cardano-api/internal/Cardano/Api/Script.hs
Original file line number Diff line number Diff line change
Expand Up @@ -127,6 +127,7 @@ import Cardano.Api.Utils (failEitherWith)

import qualified Cardano.Binary as CBOR
import qualified Cardano.Crypto.Hash.Class as Crypto
import qualified Cardano.Ledger.Allegra.Scripts as Allegra
import qualified Cardano.Ledger.Allegra.Scripts as Timelock
import qualified Cardano.Ledger.Alonzo.Scripts as Alonzo
import qualified Cardano.Ledger.Babbage.Scripts as Babbage
Expand All @@ -136,7 +137,6 @@ import qualified Cardano.Ledger.Conway.Scripts as Conway
import Cardano.Ledger.Core (Era (EraCrypto))
import qualified Cardano.Ledger.Core as Ledger
import qualified Cardano.Ledger.Keys as Shelley
import qualified Cardano.Ledger.Allegra.Scripts as Allegra
import qualified Cardano.Ledger.Plutus.Language as Plutus
import qualified Cardano.Ledger.Shelley.Scripts as Shelley
import Cardano.Slotting.Slot (SlotNo)
Expand Down Expand Up @@ -1194,7 +1194,7 @@ data MultiSigError = MultiSigErrorTimelockNotsupported deriving Show

-- | Conversion for the 'Shelley.MultiSig' language used by the Shelley era.
--
toShelleyMultiSig
toShelleyMultiSig
:: SimpleScript
-> Either MultiSigError (Shelley.MultiSig (ShelleyLedgerEra ShelleyEra))
toShelleyMultiSig = go
Expand Down Expand Up @@ -1228,7 +1228,7 @@ toAllegraTimelock :: forall era.
, EraCrypto era ~ StandardCrypto
, Ledger.NativeScript era ~ Allegra.Timelock era
)
=> SimpleScript -> Ledger.NativeScript era
=> SimpleScript -> Ledger.NativeScript era
toAllegraTimelock = go
where
go :: SimpleScript -> Timelock.Timelock era
Expand Down

0 comments on commit 7e2a417

Please sign in to comment.