File tree Expand file tree Collapse file tree 1 file changed +10
-5
lines changed
tests/FSharp.Test.Utilities Expand file tree Collapse file tree 1 file changed +10
-5
lines changed Original file line number Diff line number Diff line change @@ -641,12 +641,17 @@ module rec Compiler =
641641 let withMetadataReader func =
642642 withPeReader ( fun reader -> reader.GetMetadataReader() |> func)
643643
644- let compileGuid =
645- compile
646- >> shouldSucceed
647- >> withMetadataReader ( fun reader -> reader.GetModuleDefinition() .Mvid |> reader.GetGuid)
644+ let compileGuid cUnit =
645+ cUnit
646+ |> compile
647+ |> shouldSucceed
648+ |> withMetadataReader ( fun reader -> reader.GetModuleDefinition() .Mvid |> reader.GetGuid)
648649
649- let compileAssembly = compile >> shouldSucceed >> getAssembly
650+ let compileAssembly cUnit =
651+ cUnit
652+ |> compile
653+ |> shouldSucceed
654+ |> getAssembly
650655
651656 let private parseFSharp ( fsSource : FSharpCompilationSource ) : CompilationResult =
652657 let source = fsSource.Source.GetSourceText |> Option.defaultValue " "
You can’t perform that action at this time.
0 commit comments