Merge pull request #9889 from dotnet/merges/master-to-feature/string-…

…interp Merge master to feature/string-interp
dotnet · Aug 6, 2020 · d27379f · d27379f
2 parents 3a4066c + 2b38aa7
commit d27379f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/FSharp.Test.Utilities/Compiler.fs b/tests/FSharp.Test.Utilities/Compiler.fs
@@ -173,12 +173,12 @@ module rec Compiler =
 
     let withOptions (options: string list) (cUnit: CompilationUnit) : CompilationUnit =
         match cUnit with
-        | FS fs -> FS { fs with Options = options }
+        | FS fs -> FS { fs with Options = fs.Options @ options }
         | _ -> failwith "withOptions is only supported n F#"
 
     let withPreview (cUnit: CompilationUnit) : CompilationUnit =
         match cUnit with
-        | FS fs -> FS { fs with Options = [ "--langversion:preview" ] }
+        | FS fs -> FS { fs with Options = fs.Options @ [ "--langversion:preview" ] }
         | _ -> failwith "withPreview is only supported in F#"
 
     let asLibrary (cUnit: CompilationUnit) : CompilationUnit =