@@ -38,6 +38,7 @@ import qualified Data.Map.Strict as Map
38
38
import Data.MapExtras (extractKeys , extractKeysSmallSet )
39
39
import Data.Set (Set )
40
40
import qualified Data.Set as Set
41
+ import GHC.Stack (HasCallStack )
41
42
import Lens.Micro ((^.) )
42
43
import System.Environment (getEnv )
43
44
import System.Random.Stateful
@@ -176,10 +177,12 @@ selectRandomMapKeys n gen m = runStateGenT_ gen $ \g ->
176
177
extractKeysNaive :: Ord k => Map k a -> Set. Set k -> (Map k a , Map k a )
177
178
extractKeysNaive sm s = (Map. withoutKeys sm s, Map. restrictKeys sm s)
178
179
179
- decodeTx :: ByteString -> Tx CurrentEra
180
+ decodeTx :: HasCallStack => ByteString -> Tx CurrentEra
180
181
decodeTx hex = either error id $ do
181
182
bsl <- BSL16. decode hex
182
- first show $ decodeFull (eraProtVerHigh @ CurrentEra ) bsl
183
+ tx <- first show $ decodeFull (eraProtVerHigh @ BabbageEra ) bsl
184
+ -- TODO: remove this after the transactions below are updated
185
+ first show $ upgradeTx tx
183
186
184
187
-- | Most basic ada-only transaction:
185
188
--
@@ -235,8 +238,8 @@ validatedTx3 =
235
238
\424643546f6b656e1a006cc9f2021a0002afe90e81581c780648b89ea2f11fa9bbdd67\
236
239
\552db5dd020eda1c9a54142dd9f1b136a10081825820cf2477066091b565f87f044581\
237
240
\7c4df726900b29af3f05d229309afdbf94296d584088444a5845b198a2d255175770be\
238
- \7120c2d3482751b14f06dd41d7ff023eeae6e63933b097c023c1ed19df6a061173c45aa \
239
- \54cceb568ff1886e2716e84e6260df5f6 "
241
+ \7120c2d3482751b14f06dd41d7ff023eeae6e63933b097c023c1ed19df6a061173c45a \
242
+ \a54cceb568ff1886e2716e84e6260df5f6 "
240
243
241
244
mkGlobals :: ShelleyGenesis -> Globals
242
245
mkGlobals genesis =
0 commit comments