Skip to content

Commit 8e6f921

Browse files
committed
Fix false positive error
1 parent 44c7513 commit 8e6f921

File tree

3 files changed

+16
-1
lines changed

3 files changed

+16
-1
lines changed

src/Compiler/Checking/NameResolution.fs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2556,7 +2556,7 @@ let private ResolveObjectConstructorPrim (ncenv: NameResolver) edenv resInfo m a
25562556
[DefaultStructCtor(g, ty)]
25572557
else []
25582558
if (isNil defaultStructCtorInfo && isNil ctorInfos) || (not (isAppTy g ty) && not (isAnyTupleTy g ty)) then
2559-
raze (error(NoConstructorsAvailableForType(ty, edenv, m)))
2559+
raze (NoConstructorsAvailableForType(ty, edenv, m))
25602560
else
25612561
let ctorInfos = ctorInfos |> List.filter (IsMethInfoAccessible amap m ad)
25622562
let metadataTy = convertToTypeWithMetadataIfPossible g ty
Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,14 @@
1+
module FSharp.Compiler.ComponentTests.Conformance.Expressions.ApplicationExpressions.Ctor
2+
3+
open FSharp.Test.Compiler
4+
open Xunit
5+
6+
[<Fact>]
7+
let ``Nullable 01`` () =
8+
FSharp """
9+
module Module
10+
11+
let _ = System.Nullable()
12+
"""
13+
|> typecheck
14+
|> shouldSucceed

tests/FSharp.Compiler.ComponentTests/FSharp.Compiler.ComponentTests.fsproj

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -83,6 +83,7 @@
8383
<Compile Include="Conformance\GeneratedEqualityHashingComparison\Basic\Basic.fs" />
8484
<Compile Include="Conformance\GeneratedEqualityHashingComparison\IComparison\IComparison.fs" />
8585
<Compile Include="Conformance\Expressions\ApplicationExpressions\BasicApplication\BasicApplication.fs" />
86+
<Compile Include="Conformance\Expressions\ApplicationExpressions\Ctor.fs" />
8687
<Compile Include="Conformance\Expressions\BindingExpressions\BindingExpressions.fs" />
8788
<Compile Include="Conformance\Expressions\ComputationExpressions\ComputationExpressions.fs" />
8889
<Compile Include="Conformance\Expressions\ObjectExpressions\ObjectExpressions.fs" />

0 commit comments

Comments
 (0)