From 46dfde32108689e9d9cc1dd3607e6b7a0678f591 Mon Sep 17 00:00:00 2001
From: wardwheeler <wheeler@amnh.org>
Date: Wed, 27 Nov 2024 13:40:08 -0500
Subject: [PATCH] testing fuse split in swap during fuse

---
 src/Search/SwapV2.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/Search/SwapV2.hs b/src/Search/SwapV2.hs
index 57eae297..0dc1a2e6 100644
--- a/src/Search/SwapV2.hs
+++ b/src/Search/SwapV2.hs
@@ -447,6 +447,10 @@ rejoinFromOptSplitList swapParams inGS inData doIA inGraphNetPenaltyFactor curBe
                                         -- for fuse--first is fuse connection w/o swap
                                         pure $ take 3 $ fromJust fuseEdgesToJoin
 
+                                     -- to test if fuse splits are OK in general--saves replication of effort in split graph optimization
+                                     else if  (isJust fuseEdgesToJoin) then
+                                        pure $ fromJust fuseEdgesToJoin
+
                                      -- network
                                      else if graphType inGS /= Tree then 
                                         pure edgesInBaseGraph
@@ -469,6 +473,7 @@ rejoinFromOptSplitList swapParams inGS inData doIA inGraphNetPenaltyFactor curBe
                 let maxMoveEdgeDistance = min (maxMoveEdgeDist swapParams) (maxBound ∷ Int)
 
                 -- reorder/shuffle edge list if desired
+                -- breaks sorted by split cost in swapNaive
                 rejoinEdges <-  if isJust fuseEdgesToJoin then 
                                     pure edgesInBaseGraph'