diff --git a/src/fsharp/FSharp.Build/Fsc.fs b/src/fsharp/FSharp.Build/Fsc.fs index df5a6826a6..04fe494e4b 100644 --- a/src/fsharp/FSharp.Build/Fsc.fs +++ b/src/fsharp/FSharp.Build/Fsc.fs @@ -196,8 +196,9 @@ type [ null then + for item in defineConstants do + builder.AppendSwitchIfNotNull("--define:", item.ItemSpec) // DocumentationFile builder.AppendSwitchIfNotNull("--doc:", documentationFile) // GenerateInterfaceFile @@ -225,13 +226,15 @@ type [ "Itanium" | _ -> null) // Resources - for item in resources do - builder.AppendSwitchIfNotNull("--resource:", item.ItemSpec) + if resources <> null then + for item in resources do + builder.AppendSwitchIfNotNull("--resource:", item.ItemSpec) // VersionFile builder.AppendSwitchIfNotNull("--versionfile:", versionFile) // References - for item in references do - builder.AppendSwitchIfNotNull("-r:", item.ItemSpec) + if references <> null then + for item in references do + builder.AppendSwitchIfNotNull("-r:", item.ItemSpec) // ReferencePath let referencePathArray = // create a array of strings match referencePath with