Merge pull request IntersectMBO#5506 from input-output-hk/nadia.chambers/no-tx-gen-lens-01

bench: Remove dependency on microlens

Author: mgmeier

bench/tx-generator/src/Cardano/TxGenerator/Setup/NodeConfig.hs

@@ -8,15 +8,15 @@ module Cardano.TxGenerator.Setup.NodeConfig
        (module Cardano.TxGenerator.Setup.NodeConfig)
        where
 
+import           Control.Applicative (Const (Const), getConst)
 import           Control.Monad.Trans.Except (runExceptT)
 import           Data.Bifunctor (first)
 import           Data.Monoid
-import           Lens.Micro ((^.))
 
 import qualified Ouroboros.Consensus.Cardano as Consensus
 
 import           Cardano.Api (BlockType (..), ProtocolInfoArgs (..))
-import qualified Cardano.Ledger.Api.Transition as Ledger
+import qualified Cardano.Ledger.Api.Transition as Ledger (tcShelleyGenesisL)
 import           Cardano.Node.Configuration.POM
 import           Cardano.Node.Handlers.Shutdown (ShutdownConfig (..))
 import           Cardano.Node.Protocol.Cardano
@@ -32,7 +32,7 @@ import           Cardano.TxGenerator.Types
 -- as this guarantees proper error handling when trying to create a non-Cardano protocol.
 getGenesis :: SomeConsensusProtocol -> ShelleyGenesis
 getGenesis (SomeConsensusProtocol CardanoBlockType proto)
-    = transCfg ^. Ledger.tcShelleyGenesisL
+    = getConst $ Ledger.tcShelleyGenesisL Const transCfg
   where
     ProtocolInfoArgsCardano Consensus.CardanoProtocolParams
       { Consensus.ledgerTransitionConfig = transCfg

bench/tx-generator/tx-generator.cabal

@@ -120,7 +120,6 @@ library
                       , generic-monoid
                       , ghc-prim
                       , io-classes
-                      , microlens
                       , mtl
                       , network
                       , network-mux