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 @@ -890,8 +890,8 @@ auxiliary_data_map =
890890 )
891891
892892leios_certificate =
893- [ signers : bytes ;bitfield
894- , aggregated_signature : leios_signature
893+ [ signers : bytes .size (0 .. 8192) ;bitfield with up to 65537 entries
894+ , signature : leios_signature
895895 ]
896896
897897leios_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 )
@@ -965,9 +966,12 @@ instance HuddleRule "leios_certificate" DijkstraEra where
965966 huddleRuleNamed pname era =
966967 pname
967968 =.= arr
968- [ " signers" ==> VBytes & comment " bitfield"
969- , " aggregated_signature" ==> huddleRule @ " leios_signature" era
969+ [ " signers" ==> VBytes `sized` (0 :: Word64 , maxSigners `div ` 8 :: Word64 )
970+ & comment (fromString $ " bitfield with up to " <> show maxSigners <> " entries" )
971+ , " signature" ==> huddleRule @ " leios_signature" era
970972 ]
973+ where
974+ maxSigners = 2 ^ (16 :: Word ) + 1
971975
972976instance HuddleRule " leios_signature" DijkstraEra where
973977 huddleRuleNamed pname _era =
You can’t perform that action at this time.
0 commit comments