Expose sbe version of textEnvelopeToJSONEra

Author: Jimbo4350

cardano-api/src/Cardano/Api/Experimental/Serialise/TextEnvelope/Internal.hs

@@ -5,6 +5,10 @@ where
 
 import Cardano.Api.Experimental.Era
 import Cardano.Api.Serialise.TextEnvelope.Internal
+  ( HasTextEnvelope
+  , TextEnvelopeDescr
+  , textEnvelopeToJSON
+  )
 
 import Data.ByteString.Lazy qualified as LBS
 

cardano-api/src/Cardano/Api/Serialise/TextEnvelope.hs

@@ -14,6 +14,7 @@ module Cardano.Api.Serialise.TextEnvelope
   , readTextEnvelopeFromFile
   , readTextEnvelopeOfTypeFromFile
   , textEnvelopeToJSON
+  , textEnvelopeToJSONEra
   , serialiseTextEnvelope
   , legacyComparison
 

cardano-api/src/Cardano/Api/Serialise/TextEnvelope/Internal.hs

@@ -25,6 +25,7 @@ module Cardano.Api.Serialise.TextEnvelope.Internal
   , readTextEnvelopeFromFile
   , readTextEnvelopeOfTypeFromFile
   , textEnvelopeToJSON
+  , textEnvelopeToJSONEra
   , serialiseTextEnvelope
   , legacyComparison
   , textEnvelopeTypeToEra
@@ -41,6 +42,7 @@ where
 
 import Cardano.Api.Era
 import Cardano.Api.Error
+import Cardano.Api.Experimental.Era
 import Cardano.Api.HasTypeProxy
 import Cardano.Api.IO
 import Cardano.Api.Internal.Orphans ()
@@ -265,6 +267,15 @@ textEnvelopeToJSON :: HasTextEnvelope a => Maybe TextEnvelopeDescr -> a -> LBS.B
 textEnvelopeToJSON mbDescr a =
   serialiseTextEnvelope $ serialiseToTextEnvelope mbDescr a
 
+textEnvelopeToJSONEra
+  :: HasTextEnvelope (f (LedgerEra era))
+  => ShelleyBasedEra era
+  -> Maybe TextEnvelopeDescr
+  -> f (LedgerEra era)
+  -> LBS.ByteString
+textEnvelopeToJSONEra era mDesc c =
+  shelleyBasedEraConstraints era $ textEnvelopeToJSON mDesc c
+
 -- | Serialise text envelope to pretty JSON
 serialiseTextEnvelope :: TextEnvelope -> LBS.ByteString
 serialiseTextEnvelope te = encodePretty' textEnvelopeJsonConfig te <> "\n"