ResolveLongIndentAsModuleOrNamespaceThen sink ResultCollectionSettings.AtMostOneResult ncenv.amap m fullyQualified nenv ad lidfalse

(ResolvePatternLongIdentInModuleOrNamespace ncenv nenv numTyArgsOpt ad)

match lidwith

| tn:: restwhennot(isNil rest)->

ResolveLongIdentInTyconRefs ResultCollectionSettings.AtMostOneResult ncenv nenv LookupKind.Pattern1 tn.idRange ad rest numTyArgsOpt tn.idRange tcrefs

NoResultsOrUsefulErrors

match AtMostOneResult m(tyconSearch ad+++ moduleSearch ad)with

lettyconResult= tyconSearch ad

match tyconResultwith

| Result(res::_)-> res

letmoduleResult= moduleSearch ad

match moduleResultwith

| Result(res::_)-> res

match AtMostOneResult m(tyconResult+++ moduleResult)with

| Result_as res-> ForceRaise res

ForceRaise(AtMostOneResult m(tyconSearch AccessibleFromSomeFSharpCode+++ moduleSearch AccessibleFromSomeFSharpCode))

lettyconResult= tyconSearch AccessibleFromSomeFSharpCode

match tyconResultwith

| Result(res::_)-> res

ForceRaise(AtMostOneResult m(tyconResult+++ moduleSearch AccessibleFromSomeFSharpCode))

ResolutionInfo.SendEntityPathToSink(sink,ncenv,nenv,ItemOccurence.Use,ad,resInfo,ResultTyparChecker(fun()->true))

ifnot(isNil rest)then error(Error(FSComp.SR.nrIsNotConstructorOrLiteral(),(List.head rest).idRange))

res

match restwith

|[]-> res

| element::_-> error(Error(FSComp.SR.nrIsNotConstructorOrLiteral(),element.idRange))