Update baselines

Author: auduchinok

src/Compiler/pars.fsy

@@ -3683,9 +3683,10 @@ constrPattern:
       { let m = unionRanges (rhs parseState 1) $2.Range
         SynPat.IsInst($2, m) }
 
-  | COLON_QMARK ends_coming_soon_or_recover %prec pat_isinst
+  | COLON_QMARK recover %prec pat_isinst
       { let mColon = rhs parseState 1
-        reportParseErrorAt mColon (FSComp.SR.parsExpectingPattern ())
+        if not $2 then
+            reportParseErrorAt mColon (FSComp.SR.parsExpectingPattern ())
         let ty = SynType.FromParseError(mColon.EndRange)
         SynPat.IsInst(ty, mColon) }
 
@@ -3868,9 +3869,10 @@ parenPattern:
       { let mLhs = lhs parseState
         SynPat.Typed($1, $3, mLhs) }
 
-  | parenPattern COLON ends_coming_soon_or_recover
+  | parenPattern COLON recover
       { let mColon = rhs parseState 2
-        reportParseErrorAt mColon (FSComp.SR.parsExpectingPattern ())
+        if not $3 then
+            reportParseErrorAt mColon (FSComp.SR.parsExpectingPattern ())
         let ty = SynType.FromParseError(mColon.EndRange)
         SynPat.Typed($1, ty, unionRanges $1.Range mColon) }
 
@@ -3882,9 +3884,10 @@ parenPattern:
       { let mColonColon = rhs parseState 2
         SynPat.ListCons($1, $3, rhs2 parseState 1 3, { ColonColonRange = mColonColon }) }
 
-  | parenPattern COLON_COLON ends_coming_soon_or_recover
+  | parenPattern COLON_COLON recover
       { let mColonColon = rhs parseState 2
-        reportParseErrorAt mColonColon (FSComp.SR.parsExpectingPattern ())
+        if not $3 then
+            reportParseErrorAt mColonColon (FSComp.SR.parsExpectingPattern ())
         let pat2 = SynPat.Wild(mColonColon.EndRange)
         SynPat.ListCons($1, pat2, rhs2 parseState 1 2, { ColonColonRange = mColonColon }) }
 

tests/service/data/SyntaxTree/MatchClause/Missing pat 05.fs

@@ -0,0 +1,6 @@
+module Module
+
+match () with
+|
+
+()

tests/service/data/SyntaxTree/MatchClause/Missing pat 05.fs.bsl

@@ -0,0 +1,18 @@
+ImplFile
+  (ParsedImplFileInput
+     ("/root/MatchClause/Missing pat 05.fs", false, QualifiedNameOfFile Module,
+      [], [],
+      [SynModuleOrNamespace
+         ([Module], false, NamedModule,
+          [Expr
+             (Match
+                (Yes (3,0--3,13), Const (Unit, (3,6--3,8)), [], (3,0--4,1),
+                 { MatchKeyword = (3,0--3,5)
+                   WithKeyword = (3,9--3,13) }), (3,0--4,1));
+           Expr (Const (Unit, (6,0--6,2)), (6,0--6,2))],
+          PreXmlDoc ((1,0), FSharp.Compiler.Xml.XmlDocCollector), [], None,
+          (1,0--6,2), { LeadingKeyword = Module (1,0--1,6) })], (true, true),
+      { ConditionalDirectives = []
+        CodeComments = [] }, set []))
+
+(6,0)-(6,1) parse error Incomplete structured construct at or before this point in expression