@@ -32,7 +32,7 @@ let rec private processExpressions
3232 ( processArgs : SynSimplePats -> bool )
3333 ( expressions : list < SynExpr >) =
3434 match expressions with
35- | SynExpr.LetOrUse(_, _, bindings, _, _, _) :: rest ->
35+ | SynExpr.LetOrUse(_, _, _, false , bindings, _, _, _) :: rest ->
3636 bindings |> List.exists processBinding
3737 || processExpressions processBinding processArgs rest
3838 | SynExpr.Sequential(_, _, expr1, expr2, _, _) :: rest ->
@@ -65,7 +65,7 @@ let rec private processPatterns (definitionsAndPatterns: list<array<FSharpSymbol
6565 | ( definitions, SynPat.Paren( pat, _)) :: rest ->
6666 processPatterns (( definitions, pat) :: rest)
6767 | ( definitions, SynPat.Record( fieldPats, _)) :: rest ->
68- processPatterns (( fieldPats |> List.map ( fun ( _ , _ , pat ) -> ( definitions, pat ))) @ rest)
68+ processPatterns (( fieldPats |> List.map ( fun patPairField -> ( definitions, patPairField.Pattern ))) @ rest)
6969 | ( definitions, SynPat.Tuple(_, pats, _, _)) :: rest ->
7070 processPatterns (( pats |> List.map ( fun pat -> ( definitions, pat))) @ rest)
7171 | ( definitions, SynPat.Typed( pat, _, _)) :: rest ->
0 commit comments