From 84b0948dbb572d6e6bd49c531b2ecf8433e0c857 Mon Sep 17 00:00:00 2001
From: Jordan Millar <jordan.millar@iohk.io>
Date: Mon, 11 Nov 2024 09:01:57 -0400
Subject: [PATCH] Remove unused envCliSomeEra

---
 cardano-cli/src/Cardano/CLI/Environment.hs | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/cardano-cli/src/Cardano/CLI/Environment.hs b/cardano-cli/src/Cardano/CLI/Environment.hs
index 960a88b0e4..21a01a1ce8 100644
--- a/cardano-cli/src/Cardano/CLI/Environment.hs
+++ b/cardano-cli/src/Cardano/CLI/Environment.hs
@@ -4,7 +4,6 @@
 -- | This module defines constants derived from the environment.
 module Cardano.CLI.Environment
   ( EnvCli (..)
-  , envCliSomeEra
   , envCliAnyEon
   , getEnvCli
   , getEnvNetworkId
@@ -14,7 +13,6 @@ where
 
 import           Cardano.Api (AnyCardanoEra (..), CardanoEra (..), Eon, EraInEon (..),
                    NetworkId (..), NetworkMagic (..), forEraInEonMaybe)
-import qualified Cardano.Api.Experimental as Exp
 
 import           Data.Typeable
 import           Data.Word (Word32)
@@ -41,11 +39,6 @@ getEnvCli = do
       , envCliAnyCardanoEra = mCardanoEra
       }
 
-envCliSomeEra :: EnvCli -> Maybe (Exp.Some Exp.Era)
-envCliSomeEra envCli = do
-  AnyCardanoEra era <- envCliAnyCardanoEra envCli
-  forEraInEonMaybe era Exp.Some
-
 envCliAnyEon :: Typeable eon => Eon eon => EnvCli -> Maybe (EraInEon eon)
 envCliAnyEon envCli = do
   AnyCardanoEra era <- envCliAnyCardanoEra envCli