Skip to content

Commit 7ac48cf

Browse files
committed
Work around decoding issue in hardcoded transactions
The decoding error is: > TxBody: 'Collateral Inputs' must be non-empty when supplied
1 parent b2b61e2 commit 7ac48cf

File tree

1 file changed

+7
-4
lines changed

1 file changed

+7
-4
lines changed

libs/ledger-state/bench/Performance.hs

Lines changed: 7 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -38,6 +38,7 @@ import qualified Data.Map.Strict as Map
3838
import Data.MapExtras (extractKeys, extractKeysSmallSet)
3939
import Data.Set (Set)
4040
import qualified Data.Set as Set
41+
import GHC.Stack (HasCallStack)
4142
import Lens.Micro ((^.))
4243
import System.Environment (getEnv)
4344
import System.Random.Stateful
@@ -176,10 +177,12 @@ selectRandomMapKeys n gen m = runStateGenT_ gen $ \g ->
176177
extractKeysNaive :: Ord k => Map k a -> Set.Set k -> (Map k a, Map k a)
177178
extractKeysNaive sm s = (Map.withoutKeys sm s, Map.restrictKeys sm s)
178179

179-
decodeTx :: ByteString -> Tx CurrentEra
180+
decodeTx :: HasCallStack => ByteString -> Tx CurrentEra
180181
decodeTx hex = either error id $ do
181182
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
183186

184187
-- | Most basic ada-only transaction:
185188
--
@@ -235,8 +238,8 @@ validatedTx3 =
235238
\424643546f6b656e1a006cc9f2021a0002afe90e81581c780648b89ea2f11fa9bbdd67\
236239
\552db5dd020eda1c9a54142dd9f1b136a10081825820cf2477066091b565f87f044581\
237240
\7c4df726900b29af3f05d229309afdbf94296d584088444a5845b198a2d255175770be\
238-
\7120c2d3482751b14f06dd41d7ff023eeae6e63933b097c023c1ed19df6a061173c45aa\
239-
\54cceb568ff1886e2716e84e6260df5f6"
241+
\7120c2d3482751b14f06dd41d7ff023eeae6e63933b097c023c1ed19df6a061173c45a\
242+
\a54cceb568ff1886e2716e84e6260df5f6"
240243

241244
mkGlobals :: ShelleyGenesis -> Globals
242245
mkGlobals genesis =

0 commit comments

Comments
 (0)