use named access on ident pattern match

dotnet · Dec 29, 2022 · a615f58 · a615f58
1 parent 307bd35
commit a615f58
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/service/TreeVisitorTests.fs b/tests/service/TreeVisitorTests.fs
@@ -73,5 +73,5 @@ let ``Visit recursive let binding`` () =
     let parseTree = parseSourceCode("C:\\test.fs", source)
 
     match SyntaxTraversal.Traverse(pos0, parseTree, visitor) with
-    | Some [ SynBinding (_, _, _, _, _, _, SynValData(_, SynValInfo([[ SynArgInfo(_, _, Some id) ]], _), _), _, _, _, _, _, _) ] when id.idText = "n" -> ()
+    | Some [ SynBinding(valData = SynValData(valInfo = SynValInfo(curriedArgInfos = [ [ SynArgInfo(ident = Some id) ] ]))) ] when id.idText = "n" -> ()
     | _ -> failwith "Did not visit recursive let binding"