@@ -128,18 +128,18 @@ module Program =
128128 engine.HostServices.RegisterHostObject( fsprojFullPath, " CoreCompile" , " Fsc" , host)
129129
130130
131- engine.SetGlobalProperty( " BuildingInsideVisualStudio" , " true" ) |> ignore
132- engine.SetGlobalProperty( " VisualStudioVersion" , " 12.0" ) |> ignore
133- engine.SetGlobalProperty( " ShouldUnsetParentConfigurationAndPlatform" , " false" ) |> ignore
134- for ( prop, value) in properties do
135- engine.SetGlobalProperty( prop, value) |> ignore
136-
137131 let projectInstanceFromFullPath ( fsprojFullPath : string ) =
138132 use stream = new IO.StreamReader( fsprojFullPath)
139133 use xmlReader = System.Xml.XmlReader.Create( stream)
140134
141135 let project = engine.LoadProject( xmlReader, FullPath= fsprojFullPath)
142136
137+ project.SetGlobalProperty( " BuildingInsideVisualStudio" , " true" ) |> ignore
138+ project.SetGlobalProperty( " VisualStudioVersion" , " 12.0" ) |> ignore
139+ project.SetGlobalProperty( " ShouldUnsetParentConfigurationAndPlatform" , " false" ) |> ignore
140+ for ( prop, value) in properties do
141+ project.SetGlobalProperty( prop, value) |> ignore
142+
143143 project.CreateProjectInstance()
144144
145145 let project = projectInstanceFromFullPath fsprojFullPath
0 commit comments