From 9bc3b0b22503db16e7132fd846d5a8f1f40cc40b Mon Sep 17 00:00:00 2001 From: Kevin Ransom Date: Fri, 18 Aug 2023 12:29:02 -0700 Subject: [PATCH] temp --- .../EmittedIL/RealInternalSignature.fs | 30 +++++++++---------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/tests/FSharp.Compiler.ComponentTests/EmittedIL/RealInternalSignature.fs b/tests/FSharp.Compiler.ComponentTests/EmittedIL/RealInternalSignature.fs index 7255fed748f..8c940c0ce0e 100644 --- a/tests/FSharp.Compiler.ComponentTests/EmittedIL/RealInternalSignature.fs +++ b/tests/FSharp.Compiler.ComponentTests/EmittedIL/RealInternalSignature.fs @@ -551,7 +551,7 @@ module internal PrintfImpl [] // Internal, Debug [] // Internal, Release [] - let ``Class Type visibility - public .ctor`` (realSig, symbol) = + let ``Class Type visibility - public ctor`` (realSig, symbol) = FSharp """ namespace FSharp.Compiler.CodeAnalysis @@ -571,8 +571,8 @@ type private FSharpSourceFromFile public (filePath: string) = type FSharpSource with - static member CreateFromFile(filePath: string) = - FSharpSourceFromFile(filePath) :> FSharpSource + static member CreateFromFile (filePath: string) = + () //FSharpSourceFromFile(filePath) :> FSharpSource module doit = FSharpSource.CreateFromFile("Hello") |> ignore @@ -593,7 +593,7 @@ module doit = [] // Internal, Debug [] // Internal, Release [] - let ``Class Type visibility - internal .ctor`` (realSig, symbol) = + let ``Class Type visibility - internal ctor`` (realSig, symbol) = FSharp """ namespace FSharp.Compiler.CodeAnalysis @@ -606,7 +606,7 @@ open System.IO type FSharpSource () = abstract FilePath: string -type private FSharpSourceFromFile(filePath: string) = +type private FSharpSourceFromFile internal (filePath: string) = inherit FSharpSource() override _.FilePath = filePath @@ -635,7 +635,7 @@ module doit = [] // Internal, Debug [] // Internal, Release [] - let ``Class Type visibility - private .ctor`` (realSig, symbol) = + let ``Class Type visibility - private ctor`` (realSig, symbol) = FSharp """ namespace FSharp.Compiler.CodeAnalysis @@ -645,18 +645,18 @@ open System.IO [] -type FSharpSource internal () = +type FSharpSource () = abstract FilePath: string -type private FSharpSourceFromFile(filePath: string) = +type private FSharpSourceFromFile private (filePath: string) = inherit FSharpSource() override _.FilePath = filePath type FSharpSource with - static member CreateFromFile private (filePath: string) = - FSharpSourceFromFile(filePath) :> FSharpSource + static member CreateFromFile (filePath: string) = + () //FSharpSourceFromFile(filePath) :> FSharpSource module doit = FSharpSource.CreateFromFile("Hello") |> ignore @@ -676,7 +676,7 @@ module doit = [] // Internal, Debug [] // Internal, Release [] - let ``Class Type visibility - unspecified .ctor`` (realSig, symbol) = + let ``Class Type visibility - unspecified ctor`` (realSig, symbol) = FSharp """ namespace FSharp.Compiler.CodeAnalysis @@ -686,18 +686,18 @@ open System.IO [] -type FSharpSource internal () = +type FSharpSource () = abstract FilePath: string -type private FSharpSourceFromFile(filePath: string) = +type private FSharpSourceFromFile (filePath: string) = inherit FSharpSource() override _.FilePath = filePath type FSharpSource with - static member CreateFromFile private (filePath: string) = - FSharpSourceFromFile(filePath) :> FSharpSource + static member CreateFromFile (filePath: string) = + () //FSharpSourceFromFile(filePath) :> FSharpSource module doit = FSharpSource.CreateFromFile("Hello") |> ignore