fixed: no FSharpSymbolUse for single case union type #301

vasily-kirichenko · vasily-kirichenko · commit 3f97dc06709a · 2015-02-27T13:11:14.000+03:00
diff --git a/src/fsharp/tc.fs b/src/fsharp/tc.fs
@@ -13961,6 +13961,7 @@ module EstablishTypeDefinitionCores = begin
                     noAllowNullLiteralAttributeCheck()
                     TcRecdUnionAndEnumDeclarations.CheckUnionCaseName  cenv unionCaseName.idText unionCaseName.idRange
                     let unionCase = NewUnionCase unionCaseName unionCaseName.idText [] thisTy [] XmlDoc.Empty tycon.Accessibility
+                    writeFakeUnionCtorsToSink [ unionCase ]
                     MakeUnionRepr [ unionCase ], None, NoSafeInitInfo
 
                 | SynTypeDefnSimpleRepr.TypeAbbrev(ParserDetail.ThereWereSignificantParseErrorsSoDoNotTypecheckThisNode, _rhsType,_) ->
