fix infinite recursion in subsheets

Razvan00Rusu · Feb 4, 2022 · 6a5a05d · 6a5a05d
1 parent a8b9804
commit 6a5a05d
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/Renderer/UI/FileMenuView.fs b/src/Renderer/UI/FileMenuView.fs
@@ -896,16 +896,19 @@ let viewTopMenu model messagesFunc simulateButtonFunc dispatch =
 
             let sTrees = getSheetTrees project
 
-            let rec subSheetsOf sh =
+            let rec subSheetsOf path sh =
                 match Map.tryFind sh sTrees with
                 | Some tree -> tree.SubSheets
                 | None -> []
-                |> List.collect (fun ssh -> ssh.Node :: subSheetsOf ssh.Node)
+                |> List.collect (fun ssh -> 
+                    match List.contains ssh.Node path with
+                    | true -> []
+                    | false -> ssh.Node :: subSheetsOf (ssh.Node :: path) ssh.Node)
                 |> List.distinct
 
             let allSubSheets =
                 mapKeys sTrees
-                |> Seq.collect subSheetsOf
+                |> Seq.collect (subSheetsOf [])
                 |> Set
             let isSubSheet sh = Set.contains sh allSubSheets