diff --git a/eras/conway/impl/src/Cardano/Ledger/Conway.hs b/eras/conway/impl/src/Cardano/Ledger/Conway.hs
index 5ba674f142c..09632bf17c8 100644
--- 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
index 254ee2db404..525848a131d 100644
--- 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 =