Serialize to the correct chain parameters version.

Concordium · Jan 14, 2025 · 85c8d20 · 85c8d20
1 parent cb9d55d
commit 85c8d20
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/haskell-src/Concordium/GRPC2.hs b/haskell-src/Concordium/GRPC2.hs
@@ -2140,7 +2140,7 @@ instance ToProto (AccountAddress, EChainParametersAndKeys) where
             SChainParametersV3 ->
                 let Parameters.ChainParameters{..} = params
                 in  Proto.make $
-                        ProtoFields.v2
+                        ProtoFields.v3
                             .= Proto.make
                                 ( do
                                     ProtoFields.consensusParameters .= toProto _cpConsensusParameters
@@ -2158,6 +2158,7 @@ instance ToProto (AccountAddress, EChainParametersAndKeys) where
                                     ProtoFields.level1Keys .= toProto (Updates.level1Keys keys)
                                     ProtoFields.level2Keys .= toProto (Updates.level2Keys keys)
                                     ProtoFields.finalizationCommitteeParameters .= toProto (Parameters.unOParam _cpFinalizationCommitteeParameters)
+                                    ProtoFields.validatorScoreParameters .= toProto (Parameters.unOParam _cpValidatorScoreParameters)
                                 )
 
 instance ToProto FinalizationIndex where