Merge pull request #339 from input-output-hk/newhoggy/delete-Protocol…

…UTxOCostPerWordFeature

Delete `ProtocolUTXOCostPerWord` feature

cardano-api/gen/Test/Gen/Cardano/Api/Typed.hs

@@ -898,7 +898,6 @@ genProtocolParameters era = do
   protocolParamPoolPledgeInfluence <- genRationalInt64
   protocolParamMonetaryExpansion <- genRational
   protocolParamTreasuryCut <- genRational
-  protocolParamUTxOCostPerWord <- inEonForEra @ProtocolUTxOCostPerWordFeature (pure Nothing) (const (Just <$> genLovelace)) era
   protocolParamCostModels <- pure mempty
   --TODO: Babbage figure out how to deal with
   -- asymmetric cost model JSON instances
@@ -935,7 +934,6 @@ genProtocolParametersUpdate era = do
   protocolUpdatePoolPledgeInfluence <- Gen.maybe genRationalInt64
   protocolUpdateMonetaryExpansion   <- Gen.maybe genRational
   protocolUpdateTreasuryCut         <- Gen.maybe genRational
-  protocolUpdateUTxOCostPerWord     <- inEonForEra @ProtocolUTxOCostPerWordFeature (pure Nothing) (const (Just <$> genLovelace)) era
   let protocolUpdateCostModels = mempty -- genCostModels
   --TODO: Babbage figure out how to deal with
   -- asymmetric cost model JSON instances

cardano-api/internal/Cardano/Api/Ledger/Lens.hs

@@ -81,6 +81,7 @@ invalidHereAfterL :: Lens' L.ValidityInterval (Maybe SlotNo)
 invalidHereAfterL = invalidHereAfterStrictL . strictMaybeL
 
 -- | Lens to access the 'invalidBefore' field of a 'ValidityInterval' as a 'StrictMaybe SlotNo'.
+-- Ideally this should be defined in cardano-ledger
 invalidBeforeStrictL :: Lens' L.ValidityInterval (StrictMaybe SlotNo)
 invalidBeforeStrictL = lens g s
   where
@@ -91,6 +92,7 @@ invalidBeforeStrictL = lens g s
     s (L.ValidityInterval _ b) a = L.ValidityInterval a b
 
 -- | Lens to access the 'invalidHereAfter' field of a 'ValidityInterval' as a 'StrictMaybe SlotNo'.
+-- Ideally this should be defined in cardano-ledger
 invalidHereAfterStrictL :: Lens' L.ValidityInterval (StrictMaybe SlotNo)
 invalidHereAfterStrictL = lens g s
   where