anchor.diff:              addIdent NavigableItemKind.Exception id isSig container
               { Type = ContainerType.Exception; Name = id.idText }
       
  -        let addComponentInfo kind (ComponentInfo(_, _, _, lid, _, _, _, _)) isSig container = 
  +        let addComponentInfo containerType kind (ComponentInfo(_, _, _, lid, _, _, _, _)) isSig container = 
               match lastInLid lid with
               | Some id -> addIdent kind id isSig container
               | _ -> ()
  -            { Type = ContainerType.Type; Name = formatLongIdent lid }
  +            { Type = containerType; Name = formatLongIdent lid }
       
           let addValSig kind (ValSpfn(_, id, _, _, _, _, _, _, _, _, _)) isSig container = 
               addIdent kind id isSig container
  
positive.code:             | SynModuleDecl.Open _ -> ()
      
          and walkSynTypeDefn(TypeDefn(componentInfo, representation, members, _)) container = 
              let container = addComponentInfo NavigableItemKind.Type componentInfo false container
              walkSynTypeDefnRepr representation container
              for m in members do
                  walkSynMemberDefn m container
  
negative.code:             | SynModuleDecl.NamespaceFragment(fragment) ->
                  walkSynModuleOrNamespace fragment container
              | SynModuleDecl.NestedModule(componentInfo, _, modules, _, _) ->
                  let container = addComponentInfo ContainerType.Module NavigableItemKind.Module componentInfo false container
                  for m in modules do
                      walkSynModuleDecl m container
              | SynModuleDecl.Types(typeDefs, _range) ->
  