Apply suggestions from code review

Co-authored-by: Jonathan Knowles <mail@jonathanknowles.net>
cardano-foundation · Sep 14, 2023 · 270b6ad · 270b6ad
1 parent 5fa9085
commit 270b6ad
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/lib/wallet/test/unit/Cardano/Wallet/Write/Tx/Balance/TokenBundleSizeSpec.hs b/lib/wallet/test/unit/Cardano/Wallet/Write/Tx/Balance/TokenBundleSizeSpec.hs
@@ -267,17 +267,17 @@ instance Arbitrary PParamsInRecentEra where
             -> Gen (PParams (ShelleyLedgerEra era))
         genPParams era = withConstraints era $ do
             ver <- arbitrary
-            maxSize <- genMaxSize
+            maxSize <- genMaxSizeBytes
             return $ def
                 & ppProtocolVersionL .~ (ProtVer ver 0)
                     -- minor version doesn't matter
                 & ppMaxValSizeL .~ maxSize
           where
-            genMaxSize :: Gen Natural
-            genMaxSize =
+            genMaxSizeBytes :: Gen Natural
+            genMaxSizeBytes =
                 oneof
-                -- Generate values close to the mainnet value of 4000 (and guard
-                -- against underflow)
+                -- Generate values close to the mainnet value of 4000 bytes
+                -- (and guard against underflow)
                 [ fromIntegral . max 0 . (4000 +) <$> arbitrary @Int
 
                 -- Generate more extreme values (both small and large)
@@ -288,9 +288,9 @@ babbageTokenBundleSizeAssessor :: TokenBundleSizeAssessor
 babbageTokenBundleSizeAssessor = mkTokenBundleSizeAssessor RecentEraBabbage
     $ def
         & ppProtocolVersionL .~ (ProtVer (eraProtVerLow @StandardBabbage) 0)
-        & ppMaxValSizeL .~ maryTokenBundleMaxSize
+        & ppMaxValSizeL .~ maryTokenBundleMaxSizeBytes
   where
-    maryTokenBundleMaxSize = 4000
+    maryTokenBundleMaxSizeBytes = 4000
 
 mkAssessorFromPParamsInRecentEra
     :: PParamsInRecentEra