File tree Expand file tree Collapse file tree 2 files changed +9
-2
lines changed
testlib/Test/Cardano/Ledger/Conway Expand file tree Collapse file tree 2 files changed +9
-2
lines changed Original file line number Diff line number Diff line change @@ -125,7 +125,7 @@ signature = bytes .size 64
125125
126126protocol_version = [major_protocol_version, uint]
127127
128- major_protocol_version = 0 .. 12
128+ major_protocol_version = 0 .. 11
129129
130130transaction_body =
131131 { 0 : set<transaction_input>
Original file line number Diff line number Diff line change @@ -13,7 +13,9 @@ module Test.Cardano.Ledger.Conway.CDDL (
1313 module Test.Cardano.Ledger.Conway.CDDL ,
1414) where
1515
16+ import Cardano.Ledger.BaseTypes (getVersion )
1617import Cardano.Ledger.Conway (ConwayEra )
18+ import Cardano.Ledger.Core
1719import Codec.CBOR.Cuddle.Comments ((//-) )
1820import Codec.CBOR.Cuddle.Huddle
1921import Data.Function (($) )
@@ -155,7 +157,12 @@ header_body =
155157 ]
156158
157159protocol_version :: Rule
158- protocol_version = " protocol_version" =:= arr [a $ major_protocol_version @ ConwayEra , a VUInt ]
160+ protocol_version = " protocol_version" =:= arr [a $ conway_major_protocol_version, a VUInt ]
161+
162+ conway_major_protocol_version :: Rule
163+ conway_major_protocol_version =
164+ " major_protocol_version"
165+ =:= (getVersion @ Integer (eraProtVerLow @ ByronEra ) ... getVersion @ Integer (eraProtVerHigh @ ConwayEra ))
159166
160167transaction_body :: Rule
161168transaction_body =
You can’t perform that action at this time.
0 commit comments