From 7e2a4170d4453ff26115948523e943b35bcaa6a6 Mon Sep 17 00:00:00 2001 From: Samuel Leathers Date: Tue, 18 Jun 2024 16:42:58 -0400 Subject: [PATCH] sylish-haskell: apply changes --- cardano-api/internal/Cardano/Api/Script.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/cardano-api/internal/Cardano/Api/Script.hs b/cardano-api/internal/Cardano/Api/Script.hs index 9f56613214..64503b23f7 100644 --- a/cardano-api/internal/Cardano/Api/Script.hs +++ b/cardano-api/internal/Cardano/Api/Script.hs @@ -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 @@ -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) @@ -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 @@ -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