Remove RecentEra argument from genPParams.

cardano-foundation · Feb 9, 2024 · 38d5969 · 38d5969
1 parent 972a999
commit 38d5969
Showing 1 changed file with 4 additions and 9 deletions.
diff --git a/lib/balance-tx/test/spec/Internal/Cardano/Write/Tx/Balance/TokenBundleSizeSpec.hs b/lib/balance-tx/test/spec/Internal/Cardano/Write/Tx/Balance/TokenBundleSizeSpec.hs
@@ -33,7 +33,6 @@ import Data.Word
 import Internal.Cardano.Write.Tx
     ( IsRecentEra (..)
     , ProtVer (..)
-    , RecentEra (..)
     , StandardBabbage
     , StandardConway
     , Version
@@ -274,16 +273,12 @@ data PParamsInRecentEra
 
 instance Arbitrary PParamsInRecentEra where
     arbitrary = oneof
-        [ PParamsInBabbage <$> genPParams RecentEraBabbage
-        , PParamsInConway <$> genPParams RecentEraConway
+        [ PParamsInBabbage <$> genPParams
+        , PParamsInConway <$> genPParams
         ]
-
       where
-        genPParams
-            :: IsRecentEra era
-            => RecentEra era
-            -> Gen (PParams era)
-        genPParams _era = do
+        genPParams :: IsRecentEra era => Gen (PParams era)
+        genPParams = do
             ver <- arbitrary
             maxSize <- genMaxSizeBytes
             return $ def