Skip to content

Commit 41035ab

Browse files
committed
Explicit argument
1 parent 859d150 commit 41035ab

File tree

1 file changed

+10
-5
lines changed

1 file changed

+10
-5
lines changed

tests/FSharp.Test.Utilities/Compiler.fs

Lines changed: 10 additions & 5 deletions
Original file line numberDiff line numberDiff 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 ""

0 commit comments

Comments
 (0)