Ormolize

IntersectMBO · Aug 8, 2022 · f924b67 · f924b67
1 parent 65cb4e4
commit f924b67
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/eras/conway/impl/src/Cardano/Ledger/Conway.hs b/eras/conway/impl/src/Cardano/Ledger/Conway.hs
@@ -11,6 +11,7 @@
 module Cardano.Ledger.Conway (ConwayEra) where
 
 import Cardano.Ledger.Alonzo (reapplyAlonzoTx)
+import Cardano.Ledger.Alonzo.Genesis (AlonzoGenesis)
 import Cardano.Ledger.Alonzo.TxInfo (ExtendedUTxO (..))
 import Cardano.Ledger.Alonzo.TxWitness (TxWitness (..))
 import Cardano.Ledger.Babbage.Rules (babbageMinUTxOValue)
@@ -40,7 +41,6 @@ import qualified Data.Map.Strict as Map
 import Data.Maybe.Strict
 import qualified Data.Set as Set
 import Lens.Micro
-import Cardano.Ledger.Alonzo.Genesis (AlonzoGenesis)
 
 -- =====================================================
 

diff --git a/eras/conway/impl/src/Cardano/Ledger/Conway/Translation.hs b/eras/conway/impl/src/Cardano/Ledger/Conway/Translation.hs
@@ -20,6 +20,7 @@ import Cardano.Ledger.Babbage.PParams (BabbagePParamsHKD (..))
 import Cardano.Ledger.Babbage.Tx (AlonzoTx (..))
 import Cardano.Ledger.Babbage.TxBody (BabbageTxOut (..), Datum (..))
 import Cardano.Ledger.Conway (ConwayEra)
+import Cardano.Ledger.Conway.Genesis (ConwayGenesis (..))
 import Cardano.Ledger.Conway.Scripts ()
 import Cardano.Ledger.Conway.TxOut ()
 import qualified Cardano.Ledger.Core as Core
@@ -32,15 +33,16 @@ import Cardano.Ledger.Era
  )
 import Cardano.Ledger.Serialization (translateViaCBORAnn)
 import Cardano.Ledger.Shelley.API
- ( EpochState (..),
+ ( DPState (..),
+ DState (..),
+ EpochState (..),
  NewEpochState (..),
  ShelleyGenesis,
- StrictMaybe (..), DPState (..), DState (..)
+ StrictMaybe (..),
  )
 import qualified Cardano.Ledger.Shelley.API as API
 import Cardano.Ledger.Shelley.PParams (ShelleyPParamsHKD)
 import Data.Coerce
-import Cardano.Ledger.Conway.Genesis (ConwayGenesis (..))
 
 --------------------------------------------------------------------------------
 -- Translation from Alonzo to Babbage
@@ -144,7 +146,7 @@ instance Crypto c => TranslateEra (ConwayEra c) API.LedgerState where
  where
  updateGenesisKeys (DPState dstate pstate) = DPState dstate' pstate
  where
- dstate' = dstate{_genDelegs = newGenDelegs}
+ dstate' = dstate {_genDelegs = newGenDelegs}
 
 instance Crypto c => TranslateEra (ConwayEra c) API.UTxOState where
  translateEra ctxt us =