diff --git a/src/Internal/BalanceTx/BalanceTx.purs b/src/Internal/BalanceTx/BalanceTx.purs index 1dffa88c08..2b7313ad93 100644 --- a/src/Internal/BalanceTx/BalanceTx.purs +++ b/src/Internal/BalanceTx/BalanceTx.purs @@ -164,7 +164,6 @@ balanceTxWithConstraints unbalancedTx constraintsBuilder = do utxos <- liftEitherContract $ parTraverse (queryHandle.utxosAt >>> liftAff >>> map hush) srcAddrs <#> traverse (note CouldNotGetUtxos) - >>> map (foldr Map.union Map.empty) -- merge all utxos into one map unbalancedCollTx <- diff --git a/src/Internal/QueryM/DatumCacheWsp.purs b/src/Internal/QueryM/DatumCacheWsp.purs index eb5ac13bc6..b6f9db8a45 100644 --- a/src/Internal/QueryM/DatumCacheWsp.purs +++ b/src/Internal/QueryM/DatumCacheWsp.purs @@ -82,8 +82,7 @@ instance DecodeAeson GetTxByHashR where txFound <|> txNotFound -- TODO: delete -data DatumCacheMethod - = GetTxByHash +data DatumCacheMethod = GetTxByHash derive instance Eq DatumCacheMethod diff --git a/test/OgmiosDatumCache.purs b/test/OgmiosDatumCache.purs index 3a9077109e..b763b26b74 100644 --- a/test/OgmiosDatumCache.purs +++ b/test/OgmiosDatumCache.purs @@ -29,7 +29,8 @@ suite = group "Ogmios Datum Cache tests" $ do \https://github.com/mlabs-haskell/purescript-aeson/issues/7)" plutusDataToFromAesonTest test "Plutus data samples should have a compatible hash" plutusDataHashingTest - -- TODO Add GetTxByHash + +-- TODO Add GetTxByHash readPlutusDataSamples :: forall (m :: Type -> Type) diff --git a/test/Plutip/Staking.purs b/test/Plutip/Staking.purs index e99e7f298f..eb528f7a43 100644 --- a/test/Plutip/Staking.purs +++ b/test/Plutip/Staking.purs @@ -8,9 +8,9 @@ import Prelude import Contract.Address ( PaymentPubKeyHash(PaymentPubKeyHash) , PubKeyHash(PubKeyHash) + , getNetworkId , ownPaymentPubKeysHashes , ownStakePubKeysHashes - , getNetworkId ) import Contract.Credential (Credential(ScriptCredential)) import Contract.Hashing (plutusScriptStakeValidatorHash, publicKeyHash)