anchor.diff:  open Microsoft.FSharp.Compiler.Ast
   
   module internal Structure =
  -
  -
  -
  -/// Set of visitor utilities, designed for the express purpose of fetching ranges
  -/// from an untyped AST for the purposes of block structure.
  +    /// Set of visitor utilities, designed for the express purpose of fetching ranges
  +    /// from an untyped AST for the purposes of block structure.
       [<RequireQualifiedAccess>]
       module private Range =
  -
           let inline union (r1:range) (r2:range) =
               let startPos =
                   if r1.StartLine <= r2.StartLine
  
positive.code:         seq {
              match d with
              | SynMemberDefn.Member
                  (SynBinding.Binding (_,_kind,_,_,attrs,_,
                      SynValData (Some{MemberKind=MemberKind.Constructor},_,_),synPat,_,_e,_lhsr,_)
                          as binding,_r) as _memb ->
                 let collapse = Range.endToEnd synPat.Range d.Range
  
negative.code:             let genericRange = rangeOfTypeArgsElse r typeArgs
              let collapse = Range.endToEnd (Range.modEnd 1 genericRange) fullrange
              match objectModel with
              | SynTypeDefnRepr.ObjectModel (defnKind, objMembers, _) ->
                  match defnKind with
                  | SynTypeDefnKind.TyconAugmentation ->
  