File tree Expand file tree Collapse file tree
lib/Cardano/Ledger/Dijkstra Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -895,8 +895,8 @@ auxiliary_data_map =
895895 )
896896
897897leios_certificate =
898- [ signers : bytes ;bitfield
899- , aggregated_signature : leios_signature
898+ [ signers : bytes .size (0 .. 8192) ;bitfield with up to 65537 entries
899+ , signature : leios_signature
900900 ]
901901
902902leios_signature = bytes .size 48
Original file line number Diff line number Diff line change @@ -59,6 +59,7 @@ import Data.Function ((&))
5959import Data.List (nub )
6060import Data.Maybe (mapMaybe )
6161import Data.Proxy (Proxy (.. ))
62+ import Data.String (fromString )
6263import Data.Text ()
6364import Data.Text qualified as T
6465import Data.Word (Word16 , Word64 )
@@ -1004,9 +1005,12 @@ instance HuddleRule "leios_certificate" DijkstraEra where
10041005 huddleRuleNamed pname era =
10051006 pname
10061007 =.= arr
1007- [ " signers" ==> VBytes & comment " bitfield"
1008- , " aggregated_signature" ==> huddleRule @ " leios_signature" era
1008+ [ " signers" ==> VBytes `sized` (0 :: Word64 , maxSigners `div ` 8 :: Word64 )
1009+ & comment (fromString $ " bitfield with up to " <> show maxSigners <> " entries" )
1010+ , " signature" ==> huddleRule @ " leios_signature" era
10091011 ]
1012+ where
1013+ maxSigners = 2 ^ (16 :: Word ) + 1
10101014
10111015instance HuddleRule " leios_signature" DijkstraEra where
10121016 huddleRuleNamed pname _era =
You can’t perform that action at this time.
0 commit comments