Fix #53: error when adding a file to a project with no files (#65)

Tarmil · Krzysztof-Cieslak · commit 21fa8b196a9c · 2017-06-03T12:26:52.000+02:00
diff --git a/src/Forge.ProjectSystem/ProjectSystem.fs b/src/Forge.ProjectSystem/ProjectSystem.fs
@@ -505,6 +505,7 @@ type SourceTree (files:SourceFile list) =
         |> List.iter (fun (dir,files) ->
             tree.Add (dir,ResizeArray files)
         )
+        if not (tree.ContainsKey "/") then tree.Add("/", ResizeArray())
 
     /// Check if the target exists in the project file tree
     let hasTarget (target:string) =

Original file line number	Diff line number	Diff line change
`@@ -505,6 +505,7 @@ type SourceTree (files:SourceFile list) =`
`505`	`505`	`\|> List.iter (fun (dir,files) ->`
`506`	`506`	`tree.Add (dir,ResizeArray files)`
`507`	`507`	`)`
	`508`	`+ if not (tree.ContainsKey "/") then tree.Add("/", ResizeArray())`
`508`	`509`
`509`	`510`	`/// Check if the target exists in the project file tree`
`510`	`511`	`let hasTarget (target:string) =`