diff --git a/lib/core/src/Cardano/Wallet/Api/Types.hs b/lib/core/src/Cardano/Wallet/Api/Types.hs index ce88dd3a021..9ab460121e3 100644 --- a/lib/core/src/Cardano/Wallet/Api/Types.hs +++ b/lib/core/src/Cardano/Wallet/Api/Types.hs @@ -649,9 +649,6 @@ data ApiTransaction (n :: NetworkDiscriminant) = ApiTransaction , depth :: !(Maybe (Quantity "block" Natural)) , direction :: !(ApiT Direction) , inputs :: ![ApiTxInput n] - -- TODO: Investigate whether the list of outputs should be non-empty, and - -- if so, whether the 'outputs' field can be encoded as a non-empty list. - -- See: https://jira.iohk.io/browse/ADP-400 , outputs :: ![AddressAmount (ApiT Address, Proxy n)] , withdrawals :: ![ApiWithdrawal n] , status :: !(ApiT TxStatus) diff --git a/lib/core/test/unit/Cardano/Wallet/Api/TypesSpec.hs b/lib/core/test/unit/Cardano/Wallet/Api/TypesSpec.hs index 372ad0e2f87..3fdc28d8208 100644 --- a/lib/core/test/unit/Cardano/Wallet/Api/TypesSpec.hs +++ b/lib/core/test/unit/Cardano/Wallet/Api/TypesSpec.hs @@ -197,8 +197,6 @@ import Data.FileEmbed ( embedFile, makeRelativeToProject ) import Data.Function ( (&) ) -import Data.Generics.Internal.VL.Lens - ( view ) import Data.List ( foldl' ) import Data.List.NonEmpty @@ -1474,10 +1472,7 @@ instance Arbitrary ApiTxMetadata where shrink = genericShrink instance Arbitrary (ApiTransaction t) where - shrink = filter outputsNonEmpty . genericShrink - where - outputsNonEmpty :: ApiTransaction t -> Bool - outputsNonEmpty = (not . null) . view #outputs + shrink = genericShrink arbitrary = do txStatus <- arbitrary txInsertedAt <- case txStatus of @@ -1509,15 +1504,8 @@ instance Arbitrary (ApiTransaction t) where where genInputs = Test.QuickCheck.scale (`mod` 3) arbitrary - -- Note that the generated list of outputs must be non-empty in order - -- to be consistent with the specification. - -- - -- Ideally, we should encode this restriction in the type system. - -- - -- See https://jira.iohk.io/browse/ADP-400. - genOutputs = (:) - <$> arbitrary - <*> Test.QuickCheck.scale (`mod` 3) arbitrary + genOutputs = + Test.QuickCheck.scale (`mod` 3) arbitrary genWithdrawals = Test.QuickCheck.scale (`mod` 3) arbitrary