Change type of outputThatExceedsLimit to (Address, TokenBundle).

cardano-foundation · Mar 1, 2022 · a50b6b1 · a50b6b1
1 parent d6e300f
commit a50b6b1
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/lib/core/src/Cardano/Wallet/Api/Server.hs b/lib/core/src/Cardano/Wallet/Api/Server.hs
@@ -4328,9 +4328,9 @@ instance IsServerError SelectionOutputSizeExceedsLimitError where
         [ "One of the outputs you've specified contains too many assets. "
         , "Try splitting these assets across two or more outputs. "
         , "Destination address: "
-        , pretty (output ^. #address)
+        , pretty (fst output)
         , ". Asset count: "
-        , pretty (TokenMap.size $ output ^. (#tokens . #tokens))
+        , pretty (TokenMap.size $ snd output ^. #tokens)
         , "."
         ]
       where

diff --git a/lib/core/src/Cardano/Wallet/CoinSelection/Internal.hs b/lib/core/src/Cardano/Wallet/CoinSelection/Internal.hs
@@ -1151,7 +1151,8 @@ verifySelectionOutputSizeExceedsLimitError cs _ps e =
       where
         bundle = outputReportedAsExceedingLimit ^. #tokens
 
-    outputReportedAsExceedingLimit = e ^. #outputThatExceedsLimit
+    outputReportedAsExceedingLimit = uncurry TxOut
+        (e ^. #outputThatExceedsLimit)
 
 --------------------------------------------------------------------------------
 -- Selection error verification: output token quantity errors
@@ -1404,7 +1405,7 @@ data SelectionOutputError
 
 newtype SelectionOutputSizeExceedsLimitError =
     SelectionOutputSizeExceedsLimitError
-    { outputThatExceedsLimit :: TxOut
+    { outputThatExceedsLimit :: (Address, TokenBundle)
     }
     deriving (Eq, Generic, Show)
 
@@ -1421,7 +1422,7 @@ verifyOutputSize cs out
     | withinLimit =
         Nothing
     | otherwise =
-        Just $ SelectionOutputSizeExceedsLimitError (uncurry TxOut out)
+        Just $ SelectionOutputSizeExceedsLimitError out
   where
     withinLimit :: Bool
     withinLimit =