remove duplicated rule

edgarfgp · edgarfgp · commit ec60f7e3b3f5 · 2025-08-26T17:37:36.000+01:00
diff --git a/src/Compiler/pars.fsy b/src/Compiler/pars.fsy
@@ -3656,36 +3656,21 @@ conjPatternElements:
 
 namePatPairs:
    | namePatPair opt_seps_block
-     { let (id: Ident), mEq, (pat: SynPat) = $1
-       let m = unionRanges id.idRange pat.Range
-       let lid = SynLongIdent([id], [], [None])
+     { let (lid: SynLongIdent), mEq, (pat: SynPat) = $1
+       let m = unionRanges lid.Range pat.Range
        [ NamePatPairField(lid, mEq, m, pat, $2) ] }
 
    | namePatPair seps_block namePatPairs
-     { let (id: Ident), mEq, (pat: SynPat) = $1
-       let m = unionRanges id.idRange pat.Range
-       let lid = SynLongIdent([id], [], [None])
+     { let (lid: SynLongIdent), mEq, (pat: SynPat) = $1
+       let m = unionRanges lid.Range pat.Range
        NamePatPairField(lid, mEq, m, pat, Some $2) :: $3 }
 
    | namePatPair seps_block seps_block namePatPairs
       { reportParseErrorAt (rhs parseState 3) (FSComp.SR.parsExpectingPattern ())
-        let (id: Ident), mEq, (pat: SynPat) = $1
-        let m = unionRanges id.idRange pat.Range
-        let lid = SynLongIdent([id], [], [None])
+        let (lid: SynLongIdent), mEq, (pat: SynPat) = $1
+        let m = unionRanges lid.Range pat.Range
         NamePatPairField(lid, mEq, m, pat, Some $2) :: $4 }
 
-namePatPair:
-   | ident EQUALS parenPattern
-     { let mEquals = rhs parseState 2
-       $1, Some mEquals, $3 }
-
-   | ident EQUALS recover
-     { let mEquals = rhs parseState 2
-       $1, Some mEquals, patFromParseError (SynPat.Wild mEquals.EndRange) }
-
-   | ident recover
-     { $1, None, patFromParseError (SynPat.Wild $1.idRange.EndRange) }
-
 constrPattern:
   | atomicPatternLongIdent explicitValTyparDecls
       { let vis, lid = $1
@@ -3778,7 +3763,7 @@ atomicPattern:
   | quoteExpr
       { SynPat.QuoteExpr($1, lhs parseState) }
 
-  | LBRACE recordPatternElementsAux rbrace
+  | LBRACE namePatPairAux rbrace
       { SynPat.Record($2, rhs2 parseState 1 3) }
 
   | LBRACE error rbrace
@@ -4004,24 +3989,24 @@ conjParenPatternElements:
   | parenPattern AMP parenPattern
       { $3 :: $1 :: [] }
 
-recordPatternElementsAux:
-  | recordPatternElement opt_seps_block
+namePatPairAux:
+  | namePatPair opt_seps_block
       { let (lid: SynLongIdent), mEq, (pat: SynPat) = $1
         let m = unionRanges lid.Range pat.Range
         [ NamePatPairField(lid, mEq, m, pat, $2) ] }
 
-  | recordPatternElement seps_block recordPatternElementsAux
+  | namePatPair seps_block namePatPairAux
       { let (lid: SynLongIdent), mEq, (pat: SynPat) = $1
         let m = unionRanges lid.Range pat.Range
         NamePatPairField(lid, mEq, m, pat, Some $2) :: $3 }
 
-  | recordPatternElement seps_block seps_block recordPatternElementsAux
+  | namePatPair seps_block seps_block namePatPairAux
       { reportParseErrorAt (rhs parseState 3) (FSComp.SR.parsExpectingPattern ())
         let (lid: SynLongIdent), mEq, (pat: SynPat) = $1
         let m = unionRanges lid.Range pat.Range
         NamePatPairField(lid, mEq, m, pat, Some $2) :: $4 }
 
-recordPatternElement:
+namePatPair:
   | path EQUALS parenPattern
     { let mEquals = rhs parseState 2
       $1, Some mEquals, $3 }
