anchor.diff:                      (ResolveTypeLongIdentInModuleOrNamespace sink nenv ncenv typeNameResInfo.DropStaticArgsInfo AccessibleFromSomeFSharpCode genOk)
                   |?> List.concat 
   
  -            let searchSoFar = tyconSearch +++ modulSearch
  +            let searchSoFar = AddResults tyconSearch modulSearch
   
               match searchSoFar with 
               | Result results -> 
  
positive.code:                     |> HashSet
  
                  raze (UndefinedName(depth,FSComp.SR.undefinedNameType,id,suggestTypes))
          tyconSearch +++ modulSearch
  
  /// Resolve a long identifier representing a type 
  let rec ResolveTypeLongIdentPrim sink (ncenv:NameResolver) occurence first fullyQualified m nenv ad (id:Ident) (rest: Ident list) (staticResInfo: TypeNameResolutionStaticArgsInfo) genOk =
  
negative.code:                     NoResultsOrUsefulErrors
  
                let search =
                    let envSearch () = 
                        match fullyQualified with 
                        | FullyQualified -> 
                            NoResultsOrUsefulErrors
  