Rename RewardSnapShot field rewprotocolVersion -> rewProtocolVersion

Author: lehins

eras/shelley/impl/src/Cardano/Ledger/Shelley/LedgerState/PulsingReward.hs

@@ -203,7 +203,7 @@ startStep slotsPerEpoch b@(BlocksMade b') es@(EpochState acnt ss ls pr _ nm) max
       rewsnap =
         RewardSnapShot
           { rewFees = ssFee ss
-          , rewprotocolVersion = pr ^. ppProtocolVersionL
+          , rewProtocolVersion = pr ^. ppProtocolVersionL
           , rewNonMyopic = nm
           , rewDeltaR1 = deltaR1
           , rewR = _R
@@ -271,7 +271,7 @@ completeRupd
         , rewNonMyopic = nm
         , rewLikelihoods = newLikelihoods
         , rewLeaders = lrewards
-        , rewprotocolVersion = protVer
+        , rewProtocolVersion = protVer
         }
       pulser@(RSLP _size _free _source (RewardAns prev _now)) -- If prev is Map.empty, we have never pulsed.
     ) = do

eras/shelley/impl/src/Cardano/Ledger/Shelley/RewardUpdate.hs

@@ -135,7 +135,7 @@ emptyRewardUpdate =
 -- | To complete the reward update, we need a snap shot of the EpochState particular to this computation
 data RewardSnapShot c = RewardSnapShot
   { rewFees :: !Coin
-  , rewprotocolVersion :: !ProtVer
+  , rewProtocolVersion :: !ProtVer
   , rewNonMyopic :: !(NonMyopic c)
   , rewDeltaR1 :: !Coin -- deltaR1
   , rewR :: !Coin -- r