Don't raise no constructor exception

dotnet · Feb 20, 2023 · 029723f · 029723f
1 parent d4b4e3b
commit 029723f
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/Compiler/Checking/NameResolution.fs b/src/Compiler/Checking/NameResolution.fs
@@ -2484,10 +2484,10 @@ let private ResolveObjectConstructorPrim (ncenv: NameResolver) edenv resInfo m a
                 else []
             if (isNil defaultStructCtorInfo && isNil ctorInfos) || (not (isAppTy g ty) && not (isAnyTupleTy g ty)) then
                 let nm = NicePrint.minimalStringOfType edenv ty
-                if not (isRecdTy g ty || isUnionTy g ty) then
-                    errorR (Error(FSComp.SR.nrNoConstructorsAvailableForType(nm), m))
-
-                success (resInfo, Item.Types(nm, [ty]))
+                if isRecdTy g ty || isUnionTy g ty then
+                    success (resInfo, Item.Types(nm, [ty]))
+                else
+                    raze (Error(FSComp.SR.nrNoConstructorsAvailableForType(nm), m))
             else
                 let ctorInfos = ctorInfos |> List.filter (IsMethInfoAccessible amap m ad)
                 let metadataTy = convertToTypeWithMetadataIfPossible g ty