@@ -7,14 +7,10 @@ open Microsoft.FSharp.Compiler.Range
77open Microsoft.FSharp .Compiler .Ast
88
99module internal Structure =
10-
11-
12-
13- /// Set of visitor utilities, designed for the express purpose of fetching ranges
14- /// from an untyped AST for the purposes of block structure.
10+ /// Set of visitor utilities, designed for the express purpose of fetching ranges
11+ /// from an untyped AST for the purposes of block structure.
1512[<RequireQualifiedAccess>]
1613module private Range =
17-
1814let inline union ( r1 : range ) ( r2 : range ) =
1915let startPos =
2016if r1.StartLine<= r2.StartLine
@@ -458,7 +454,7 @@ module internal Structure =
458454seq {
459455match dwith
460456| SynMemberDefn.Member
461- ( SynBinding.Binding(_,_ kind,_,_, attrs,_,
457+ ( SynBinding.Binding(_,_ kind,_,_, attrs,_,
462458 SynValData( Some{ MemberKind= MemberKind.Constructor},_,_), synPat,_,_ e,_ lhsr,_)
463459as binding,_ r) as _ memb->
464460let collapse = Range.endToEnd synPat.Range d.Range
@@ -540,14 +536,6 @@ module internal Structure =
540536let genericRange = rangeOfTypeArgsElse r typeArgs
541537let collapse = Range.endToEnd( Range.modEnd1 genericRange) fullrange
542538match objectModelwith
543- // matches against a type declaration with <'T,...> and (args,...)
544- | SynTypeDefnRepr.ObjectModel
545- ( SynTypeDefnKind.TyconUnspecified,
546- SynMemberDefn.ImplicitCtor(_,_, synPatList,_, r):: typeMembers,_) ->
547- let declRange = rangeOfSynPatsElse r synPatList
548- let collapse = Range.endToEnd( Range.union genericRange declRange) fullrange
549- yield ! Seq.collect parseSynMemberDefn typeMembers
550- yield ! rcheck Scope.Type Collapse.Below fullrange collapse
551539| SynTypeDefnRepr.ObjectModel( defnKind, objMembers, _) ->
552540match defnKindwith
553541| SynTypeDefnKind.TyconAugmentation->