Handle dangling exprs in sequentials

Author: brianrourkeboll

src/Compiler/Service/ServiceAnalysis.fs

@@ -1319,6 +1319,8 @@ module UnnecessaryParentheses =
                     ->
                     ValueNone
 
+                | SynExpr.Sequential(expr1 = SynExpr.Paren(expr = Is inner)), Dangling.Problematic _ -> ValueNone
+
                 | SynExpr.Paren _, SynExpr.Typed _
                 | SynExpr.Quote _, SynExpr.Typed _
                 | SynExpr.AnonRecd _, SynExpr.Typed _

vsintegration/tests/FSharp.Editor.Tests/CodeFixes/RemoveUnnecessaryParenthesesTests.fs

@@ -156,6 +156,9 @@ let _ =
             "for x in [] do (ignore 3)", "for x in [] do ignore 3"
 
             // ArrayOrListComputed
+            "[1; 2; (if x then 3 else 4); 5]", "[1; 2; (if x then 3 else 4); 5]"
+            "[|1; 2; (if x then 3 else 4); 5|]", "[|1; 2; (if x then 3 else 4); 5|]"
+
             // IndexRange
             "[(1)..10]", "[1..10]"
             "[1..(10)]", "[1..10]"