Add poisoned ToPlutusData instances for Nonce and CoinPerWord

since they are not translated to Plutus, yet we would like to handle the
parameters uniformly

Author: teodanciu

eras/alonzo/impl/src/Cardano/Ledger/Alonzo/PParams.hs

@@ -104,6 +104,7 @@ import Cardano.Ledger.Plutus.ExUnits (
   zipSemiExUnits,
  )
 import Cardano.Ledger.Plutus.Language (Language (..))
+import Cardano.Ledger.Plutus.ToPlutusData (ToPlutusData (..))
 import Cardano.Ledger.Shelley.PParams
 import Control.DeepSeq (NFData)
 import Data.Aeson as Aeson (
@@ -391,6 +392,10 @@ newtype CoinPerWord = CoinPerWord {unCoinPerWord :: Coin}
   deriving stock (Eq, Ord)
   deriving newtype (EncCBOR, DecCBOR, ToJSON, FromJSON, NFData, NoThunks, Show)
 
+instance ToPlutusData CoinPerWord where
+  toPlutusData = error "unsupported"
+  fromPlutusData = error "unsupported"
+
 -- | This is a helper type that allows us to define an `Ord` instance for executions units
 -- without affecting the `ExUnits` type. This is needed in order to derive an `Ord` instance`
 -- for PParams. This is just a helper type and should not be used directly. Both lenses

libs/cardano-ledger-core/src/Cardano/Ledger/Plutus/ToPlutusData.hs

@@ -12,6 +12,7 @@ import Cardano.Ledger.BaseTypes (
   HasZero,
   NonNegativeInterval,
   NonZero (..),
+  Nonce,
   ProtVer (..),
   UnitInterval,
   nonZero,
@@ -135,3 +136,7 @@ instance ToPlutusData Word where
 instance (ToPlutusData a, HasZero a) => ToPlutusData (NonZero a) where
   toPlutusData = toPlutusData . unNonZero
   fromPlutusData x = nonZero =<< fromPlutusData x
+
+instance ToPlutusData Nonce where
+  toPlutusData = error "unsupported"
+  fromPlutusData = error "unsupported"