Remove unused envCliSomeEra

IntersectMBO · Nov 11, 2024 · 84b0948 · 84b0948
1 parent 808d843
commit 84b0948
Showing 1 changed file with 0 additions and 7 deletions.
diff --git 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