WIP ThreadNet: address code style

Author: geo2a

ouroboros-consensus-cardano/src/unstable-cardano-testlib/Test/ThreadNet/Infra/ShelleyBasedHardFork.hs

@@ -8,7 +8,6 @@
 {-# LANGUAGE InstanceSigs #-}
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE NamedFieldPuns #-}
 {-# LANGUAGE PatternSynonyms #-}
 {-# LANGUAGE RankNTypes #-}
 {-# LANGUAGE ScopedTypeVariables #-}
@@ -236,19 +235,19 @@ instance
 
   hardForkEraTranslation =
     EraTranslation
-      { translateLedgerState = PCons translateLedgerState PNil
-      , translateLedgerTables = PCons translateLedgerTables PNil
+      { translateLedgerState = PCons translateLedgerStateInstance PNil
+      , translateLedgerTables = PCons translateLedgerTablesInstance PNil
       , translateChainDepState = PCons translateChainDepStateAcrossShelley PNil
       , crossEraForecast = PCons crossEraForecastAcrossShelley PNil
       }
    where
-    translateLedgerState ::
+    translateLedgerStateInstance ::
       InPairs.RequiringBoth
         WrapLedgerConfig
         TranslateLedgerState
         (ShelleyBlock proto1 era1)
         (ShelleyBlock proto2 era2)
-    translateLedgerState =
+    translateLedgerStateInstance =
       InPairs.RequireBoth $
         \_cfg1 cfg2 ->
           HFC.TranslateLedgerState
@@ -262,11 +261,11 @@ instance
                   . Flip
             }
 
-    translateLedgerTables ::
+    translateLedgerTablesInstance ::
       TranslateLedgerTables
         (ShelleyBlock proto1 era1)
         (ShelleyBlock proto2 era2)
-    translateLedgerTables =
+    translateLedgerTablesInstance =
       HFC.TranslateLedgerTables
         { translateTxInWith = coerce
         , translateTxOutWith = SL.upgradeTxOut
@@ -458,9 +457,9 @@ protocolInfoShelleyBasedHardFork
     toPartialLedgerConfig1 ::
       LedgerConfig (ShelleyBlock proto1 era1) ->
       PartialLedgerConfig (ShelleyBlock proto1 era1)
-    toPartialLedgerConfig1 cfg =
+    toPartialLedgerConfig1 cfg1 =
       ShelleyPartialLedgerConfig
-        { shelleyLedgerConfig = cfg
+        { shelleyLedgerConfig = cfg1
         , shelleyTriggerHardFork = hardForkTrigger
         }
 
@@ -481,9 +480,9 @@ protocolInfoShelleyBasedHardFork
     toPartialLedgerConfig2 ::
       LedgerConfig (ShelleyBlock proto2 era2) ->
       PartialLedgerConfig (ShelleyBlock proto2 era2)
-    toPartialLedgerConfig2 cfg =
+    toPartialLedgerConfig2 cfg2 =
       ShelleyPartialLedgerConfig
-        { shelleyLedgerConfig = cfg
+        { shelleyLedgerConfig = cfg2
         , shelleyTriggerHardFork = TriggerHardForkNotDuringThisExecution
         }