Fix bulk credentials path to construct PraosCredentialsSource

The bulk credential parsing was calling mkPraosLeaderCredentials with
the old applicative-style signature. Update parseShelleyCredentials to
destructure OperationalCertificate and KesSigningKey, build a
PraosCredentialsUnsound, and pass it to mkPraosLeaderCredentials,
mirroring the singleton credential path.

Author: Jimbo4350

cardano-node/src/Cardano/Node/Protocol/Shelley.hs

@@ -240,10 +240,11 @@ readLeaderCredentialsBulk ProtocolFilepaths { shelleyBulkCredsFile = mfp } =
      :: ShelleyCredentials
      -> ExceptT PraosLeaderCredentialsError IO (ShelleyLeaderCredentials StandardCrypto)
    parseShelleyCredentials ShelleyCredentials { scCert, scVrf, scKes } = do
-     mkPraosLeaderCredentials
-       <$> parseEnvelope scCert
-       <*> parseEnvelope scVrf
-       <*> parseEnvelope scKes
+     OperationalCertificate opCert vkey <- parseEnvelope scCert
+     KesSigningKey kesKey <- parseEnvelope scKes
+     let credentialsSource = PraosCredentialsUnsound opCert kesKey
+     vrfSKey <- parseEnvelope scVrf
+     pure $ mkPraosLeaderCredentials credentialsSource vkey vrfSKey
 
    readBulkFile
      :: Maybe FilePath