Skip to content

Commit 0a1cab6

Browse files
committed
Fix Conway CDDL spec to reflect no support of PV12
1 parent ba62e75 commit 0a1cab6

File tree

2 files changed

+9
-2
lines changed

2 files changed

+9
-2
lines changed

eras/conway/impl/cddl-files/conway.cddl

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -125,7 +125,7 @@ signature = bytes .size 64
125125

126126
protocol_version = [major_protocol_version, uint]
127127

128-
major_protocol_version = 0 .. 12
128+
major_protocol_version = 0 .. 11
129129

130130
transaction_body =
131131
{ 0 : set<transaction_input>

eras/conway/impl/testlib/Test/Cardano/Ledger/Conway/CDDL.hs

Lines changed: 8 additions & 1 deletion
Original file line numberDiff line numberDiff 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)
1617
import Cardano.Ledger.Conway (ConwayEra)
18+
import Cardano.Ledger.Core
1719
import Codec.CBOR.Cuddle.Comments ((//-))
1820
import Codec.CBOR.Cuddle.Huddle
1921
import Data.Function (($))
@@ -155,7 +157,12 @@ header_body =
155157
]
156158

157159
protocol_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

160167
transaction_body :: Rule
161168
transaction_body =

0 commit comments

Comments
 (0)