From c0bf3d311036e7a976681274993e8d76d0440602 Mon Sep 17 00:00:00 2001
From: Jonathan Knowles <mail@jonathanknowles.net>
Date: Fri, 15 Dec 2023 05:35:07 +0000
Subject: [PATCH] Delete unused code in `Cardano.Api.Extra`.

---
 lib/wallet/src/Cardano/Api/Extra.hs | 24 +-----------------------
 1 file changed, 1 insertion(+), 23 deletions(-)

diff --git a/lib/wallet/src/Cardano/Api/Extra.hs b/lib/wallet/src/Cardano/Api/Extra.hs
index 17a2dbf07f2..f940e69a200 100644
--- a/lib/wallet/src/Cardano/Api/Extra.hs
+++ b/lib/wallet/src/Cardano/Api/Extra.hs
@@ -1,5 +1,4 @@
 {-# LANGUAGE GADTs #-}
-{-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE Rank2Types #-}
 
 -- |
@@ -9,36 +8,15 @@
 -- Module containing extra 'Cardano.Api' functionality needed by the wallet.
 module Cardano.Api.Extra
     ( inAnyCardanoEra
-    , unbundleLedgerShelleyBasedProtocolParams
     ) where
 
 import Cardano.Api
-    ( BundledProtocolParameters (..)
-    , InAnyCardanoEra (..)
+    ( InAnyCardanoEra (..)
     , IsCardanoEra (cardanoEra)
-    , ShelleyBasedEra (..)
     , Tx
     )
-import Cardano.Api.Shelley
-    ( ShelleyLedgerEra
-    )
-
-import qualified Cardano.Ledger.Core as Ledger
 
 -- | Helper function for more easily creating an existential
 -- @InAnyCardanoEra Tx@.
 inAnyCardanoEra :: IsCardanoEra era => Tx era -> InAnyCardanoEra Tx
 inAnyCardanoEra = InAnyCardanoEra cardanoEra
-
--- Not exposed by cardano-api
-unbundleLedgerShelleyBasedProtocolParams
-  :: ShelleyBasedEra era
-  -> BundledProtocolParameters era
-  -> Ledger.PParams (ShelleyLedgerEra era)
-unbundleLedgerShelleyBasedProtocolParams = \case
-  ShelleyBasedEraShelley -> \(BundleAsShelleyBasedProtocolParameters _ _ lpp) -> lpp
-  ShelleyBasedEraAllegra -> \(BundleAsShelleyBasedProtocolParameters _ _ lpp) -> lpp
-  ShelleyBasedEraMary -> \(BundleAsShelleyBasedProtocolParameters _ _ lpp) -> lpp
-  ShelleyBasedEraAlonzo -> \(BundleAsShelleyBasedProtocolParameters _ _ lpp) -> lpp
-  ShelleyBasedEraBabbage -> \(BundleAsShelleyBasedProtocolParameters _ _ lpp) -> lpp
-  ShelleyBasedEraConway -> \(BundleAsShelleyBasedProtocolParameters _ _ lpp) -> lpp