From 61486ffe03aeaa5024e01d46847f5c1785c6cc93 Mon Sep 17 00:00:00 2001 From: "adam.khayam" Date: Fri, 14 Nov 2025 10:48:57 +0100 Subject: [PATCH] fix --- src/ethereum_analysis/eth_graph.ml | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/ethereum_analysis/eth_graph.ml b/src/ethereum_analysis/eth_graph.ml index c573d9a3..ee4fff83 100644 --- a/src/ethereum_analysis/eth_graph.ml +++ b/src/ethereum_analysis/eth_graph.ml @@ -969,12 +969,15 @@ let rec cft_trees_compatible_for_merge to_ tree1 tree2 = | false, false -> if address_of_eth_address c1.resume.tc_destination - = address_of_eth_address t2.ttn_from + = address_of_eth_address t2.ttn_from && + Option.is_some @@ List.assoc_opt (address_of_eth_address t2.ttn_asset:>string) c1.resume.tc_amount1 then Some (Cftt_chain c1, Cftt_transfer t2, `chain) else if address_of_eth_address t2.ttn_to = address_of_eth_address c1.resume.tc_origin + && + address_of_eth_address t2.ttn_asset = address_of_eth_address c1.resume.tc_first_transfer.tka_asset then Some (Cftt_transfer t2, Cftt_chain c1, `chain) else -- GitLab