Cleanup

dotnet · Nov 6, 2020 · 0bad662 · 0bad662
1 parent fcfd224
commit 0bad662
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/tests/service/Symbols.fs b/tests/service/Symbols.fs
@@ -72,21 +72,21 @@ extern int private c()
           Some SynAccess.Public
           Some SynAccess.Private ]
         |> List.zip decls
-        |> List.iter (fun (actual, (expected)) ->
+        |> List.iter (fun (actual, expected) ->
             match actual with
             | SynModuleDecl.Let (_, [Binding (accessibility = access)], _) -> access |> should equal expected
             | decl -> failwithf "unexpected decl: %O" decl)
 
         [ "a", (true, false, false, false)
           "b", (true, false, false, false)
           "c", (false, false, false, true) ]
-        |> List.iter (fun (name, expectedAccess) ->
+        |> List.iter (fun (name, expected) ->
             match findSymbolByName name checkResults with
             | :? FSharpMemberOrFunctionOrValue as mfv ->
                 let access = mfv.Accessibility
                 (access.IsPublic, access.IsProtected, access.IsInternal, access.IsPrivate)
-                |> should equal expectedAccess
-            | _ -> failwith "Couldn't get f")
+                |> should equal expected
+            | _ -> failwithf "Couldn't get mfv: %s" name)
 
 
 module XmlDocSig =