public static string GetNestedModuleShortName(this INestedModuleDeclaration declaration, ICacheBuilder cacheBuilder)
{
var parent = declaration.Parent as IModuleLikeDeclaration;
var shortName = declaration.ShortName;
var moduleName =
parent?.Children <IFSharpTypeDeclaration>().Any(t => t.TypeParameters.IsEmpty && t.ShortName.Equals(shortName, StringComparison.Ordinal)) ?? false
? shortName + "Module"
: shortName;
return(cacheBuilder.Intern(moduleName));
}
public override void VisitNestedModuleDeclaration(INestedModuleDeclaration decl)
{
Builder.StartPart(new NestedModulePart(decl, Builder));
FinishModuleLikeDeclaration(decl);
}
