fix build

Author: dsyme

src/fsharp/service/ServiceStructure.fs

@@ -260,8 +260,8 @@ module Structure =
             | SynExpr.LetOrUse (_,_,bindings, body, _) ->
                 parseBindings bindings
                 parseExpr body
-            | SynExpr.Match (seqPointAtBinding,_expr,clauses,_,r)
-            | SynExpr.MatchBang (seqPointAtBinding, _expr, clauses, _, r) ->
+            | SynExpr.Match (seqPointAtBinding,_expr,clauses,r)
+            | SynExpr.MatchBang (seqPointAtBinding, _expr, clauses, r) ->
                 match seqPointAtBinding with
                 | SequencePointAtBinding sr ->
                     let collapse = Range.endToEnd sr r

src/fsharp/service/ServiceUntypedParse.fs

@@ -869,8 +869,8 @@ module UntypedParseImpl =
             | SynExpr.JoinIn(e1, _, e2, _) -> List.tryPick (walkExprWithKind parentKind) [e1; e2]
             | SynExpr.YieldOrReturn(_, e, _) -> walkExprWithKind parentKind e
             | SynExpr.YieldOrReturnFrom(_, e, _) -> walkExprWithKind parentKind e
-            | SynExpr.Match(_, e, synMatchClauseList, _, _)
-            | SynExpr.MatchBang(_, e, synMatchClauseList, _, _) -> 
+            | SynExpr.Match(_, e, synMatchClauseList, _)
+            | SynExpr.MatchBang(_, e, synMatchClauseList, _) -> 
                 walkExprWithKind parentKind e |> Option.orElse (List.tryPick walkClause synMatchClauseList)
             | SynExpr.LetOrUseBang(_, _, _, _, e1, e2, _) -> List.tryPick (walkExprWithKind parentKind) [e1; e2]
             | SynExpr.DoBang(e, _) -> walkExprWithKind parentKind e