Update cardano-rpc with PlutusV4

cardano-rpc/proto/utxorpc/v1alpha/cardano/cardano.proto

@@ -40,6 +40,7 @@ message Script {
     bytes plutus_v1 = 2; // Plutus V1 script.
     bytes plutus_v2 = 3; // Plutus V2 script.
     bytes plutus_v3 = 4; // Plutus V3 script.
+    bytes plutus_v4 = 5; // Plutus V3 script.
   }
 }
 

cardano-rpc/src/Cardano/Rpc/Server/Internal/Orphans.hs

@@ -86,6 +86,8 @@ instance Inject (ReferenceScript era) (Proto UtxoRpc.Script) where
         defMessage & #plutusV2 .~ serialiseToRawBytes ps
       PlutusScript PlutusScriptV3 ps ->
         defMessage & #plutusV3 .~ serialiseToRawBytes ps
+      PlutusScript PlutusScriptV4 ps ->
+        defMessage & #plutusV4 .~ serialiseToRawBytes ps
 
 instance IsCardanoEra era => Inject (UTxO era) [Proto UtxoRpc.AnyUtxoData] where
   inject utxo =

cardano-rpc/test/cardano-rpc-test/Test/Cardano/Rpc/ProtocolParameters.hs

@@ -35,7 +35,6 @@ hprop_roundtrip_protocol_parameters = H.property $ do
   pp <- fmap unLedgerProtocolParameters . H.forAll $ genValidProtocolParameters (convert era)
   let costModels = L.costModelsValid $ pp ^. L.ppCostModelsL
       mCms = map (`M.lookup` costModels) [minBound .. maxBound]
-
       nonEmptyCostModels =
         fromList . flip mapMaybe mCms $ \mCm ->
           mCm >>= \cm ->