Only return the OverlappingAdditionalUtxo error if the provided UTXO …

…actually differs from the one in the ledger
CardanoSolutions · Jul 19, 2024 · 09d9e9c · 09d9e9c
1 parent 0f15530
commit 09d9e9c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/server/src/Ogmios/App/Protocol/TxSubmission.hs b/server/src/Ogmios/App/Protocol/TxSubmission.hs
@@ -600,9 +600,9 @@ mkEvaluateTransactionResponse callback (UTxO networkUtxo) args =
                   \to convince the compiler of this."
         Just (UTxO userProvidedUtxo, tx) ->
             let
-                intersection = Map.intersection userProvidedUtxo networkUtxo
+                intersection = Map.intersectionWith (==) userProvidedUtxo networkUtxo
             in
-                if null intersection
+                if all intersection
                 then
                     callback (UTxO $ userProvidedUtxo <> networkUtxo) tx
                 else