db-sync: Parse PBftSignatureThreshold field of node config

This value defaults to 'Nothing' and is not used on mainnet and
testnet. It is used on the 'shelley-qa' testnet and must be parsed
correctly.

Author: erikd

cardano-db-sync/src/Cardano/DbSync/Config.hs

@@ -69,6 +69,7 @@ coalesceConfig pcfg ncfg adjustGenesisPath = do
           , dncRequiresNetworkMagic = ncRequiresNetworkMagic ncfg
           , dncEnableLogging = pcEnableLogging pcfg
           , dncEnableMetrics = pcEnableMetrics pcfg
+          , dncPBftSignatureThreshold = ncPBftSignatureThreshold ncfg
           , dncByronGenesisFile = adjustGenesisFilePath adjustGenesisPath (ncByronGenesisFile ncfg)
           , dncByronGenesisHash = ncByronGenesisHash ncfg
           , dncShelleyGenesisFile = adjustGenesisFilePath adjustGenesisPath (ncShelleyGenesisFile ncfg)

cardano-db-sync/src/Cardano/DbSync/Config/Cardano.hs

@@ -113,7 +113,7 @@ mkProtocolCardano ge =
         ProtocolCardano
           -- Byron parameters
           byronGenesis
-          Nothing                                   -- Maybe PBftSignatureThreshold
+          (Consensus.PBftSignatureThreshold <$> dncPBftSignatureThreshold dnc)
           (dncByronProtocolVersion dnc)
           (dncByronSoftwareVersion dnc)
           Nothing                                   -- Maybe ByronLeaderCredentials

cardano-db-sync/src/Cardano/DbSync/Config/Node.hs

@@ -34,6 +34,7 @@ import qualified Ouroboros.Consensus.Cardano.CanHardFork as Shelley
 
 data NodeConfig = NodeConfig
   { ncProtocol :: !DbSyncProtocol
+  , ncPBftSignatureThreshold :: !(Maybe Double)
   , ncByronGenesisFile :: !GenesisFile
   , ncByronGenesisHash :: !GenesisHashByron
   , ncShelleyGenesisFile :: !GenesisFile
@@ -62,6 +63,7 @@ instance FromJSON NodeConfig where
       parse o =
         NodeConfig
           <$> o .: "Protocol"
+          <*> o .:? "PBftSignatureThreshold"
           <*> fmap GenesisFile (o .: "ByronGenesisFile")
           <*> fmap GenesisHashByron (o .: "ByronGenesisHash")
           <*> fmap GenesisFile (o .: "ShelleyGenesisFile")

cardano-db-sync/src/Cardano/DbSync/Config/Types.hs

@@ -102,6 +102,7 @@ data DbSyncNodeConfig = DbSyncNodeConfig
   , dncRequiresNetworkMagic :: !RequiresNetworkMagic
   , dncEnableLogging :: !Bool
   , dncEnableMetrics :: !Bool
+  , dncPBftSignatureThreshold :: !(Maybe Double)
   , dncByronGenesisFile :: !GenesisFile
   , dncByronGenesisHash :: !GenesisHashByron
   , dncShelleyGenesisFile :: !GenesisFile