@@ -252,18 +252,16 @@ gatherEdges variantDict branches path =
252252 relevantTests =
253253 testsAtPath path branches
254254
255− allRawEdges =
255+ allEdges =
256256 map (edgesFor path branches) relevantTests
257+
258+ fallbacks =
259+ if isComplete variantDict relevantTests then
260+ []
261+ else
262+ filter (isIrrelevantTo path) branches
257263 in
258− if isComplete variantDict relevantTests then
259− ( init allRawEdges
260− , snd (last allRawEdges)
261− )
262−
263− else
264− ( allRawEdges
265− , filter (isIrrelevantTo path) branches
266− )
264+ ( allEdges, fallbacks )
267265
268266
269267-- FIND RELEVANT TESTS