anchor.diff:              | SynModuleDecl.HashDirective(_parsedHashDirective, _range) -> []
               | SynModuleDecl.NamespaceFragment(synModuleOrNamespace) -> getXmlDocablesSynModuleOrNamespace synModuleOrNamespace
   
  -        and getXmlDocablesSynModuleOrNamespace (SynModuleOrNamespace(_longIdent, _isModule, synModuleDecls, _preXmlDoc, _synAttributes, _synAccessOpt, _range)) =
  +        and getXmlDocablesSynModuleOrNamespace (SynModuleOrNamespace(_, _, synModuleDecls, _, _, _, _)) =
               (synModuleDecls |> List.collect getXmlDocablesSynModuleDecl)
   
  -        and getXmlDocablesSynTypeDefn (SynTypeDefn.TypeDefn(ComponentInfo(synAttributes, _synTyparDeclList, _synTypeConstraintList, _longIdent, preXmlDoc, _bool, _synAccessOpt, compRange), synTypeDefnRepr, synMemberDefns, tRange)) =
  +        and getXmlDocablesSynTypeDefn (SynTypeDefn.TypeDefn(ComponentInfo(synAttributes, _, _, _, preXmlDoc, _, _, compRange), synTypeDefnRepr, synMemberDefns, tRange)) =
               let stuff = 
                   match synTypeDefnRepr with
                   | ObjectModel(_synTypeDefnKind, synMemberDefns, _oRange) -> (synMemberDefns |> List.collect getXmlDocablesSynMemberDefn)
  
positive.code:                 | Some(x) -> x |> List.collect getXmlDocablesSynMemberDefn
              | SynMemberDefn.Inherit(_synType, _identOption, _range) -> []
              | SynMemberDefn.ValField(_synField, _range) -> []
              | SynMemberDefn.NestedType(synTypeDefn, _synAccessOption, _range) -> getXmlDocablesSynTypeDefn synTypeDefn
              | _ -> failwith "error"
  
          and getXmlDocablesInput input =
              match input with
  
negative.code:             | SynMemberDefn.ImplicitCtor(_synAccessOption, _synAttributes, _synSimplePatList, _identOption, _range) -> []
              | SynMemberDefn.ImplicitInherit(_synType, _synExpr, _identOption, _range) -> []
              | SynMemberDefn.LetBindings(_synBindingList, _, _, _range) -> []
              | SynMemberDefn.AbstractSlot(ValSpfn(synAttributes, _, _, _, SynValInfo(args, _ret), _, _, preXmlDoc, _, _, _), _, range) -> 
                  if isEmptyXmlDoc preXmlDoc then
                      let fullRange = synAttributes |> List.fold (fun r a -> unionRanges r a.Range) range
                      let line = fullRange.StartLine 
  