Merge pull request #3092 from dawedawe/fix_2998

Fix another exn in (|UppercaseExpr|LowercaseExpr|)

CHANGELOG.md

@@ -1,5 +1,10 @@
 # Changelog
 
+## 6.3.7 - 2024-06-01
+
+### Fixed
+* Fix case determination issue with ExprAppNode and ExprParenNode. [#2998](https://github.com/fsprojects/fantomas/issues/2998)
+
 ## 6.3.6 - 2024-06-01
 
 ### Fixed

src/Fantomas.Core.Tests/DynamicOperatorTests.fs

@@ -110,3 +110,18 @@ let doc2 = X?a("arg")?B("barg")?c("carg")
 let doc1 = x?a("arg")?B("barg")?c("carg")
 let doc2 = X?a ("arg")?B ("barg")?c ("carg")
 """
+
+[<Test>]
+let ``case determination issue with ExprParenNode uppercase with config lower, 2998`` () =
+    formatSourceString
+        """
+let statusBarHeight = (window?getComputedStyle document.documentElement)?getPropertyValue "--statusBarHeight"
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+let statusBarHeight =
+    (window?getComputedStyle document.documentElement)?getPropertyValue "--statusBarHeight"
+"""

src/Fantomas.Core/CodePrinter.fs

@@ -58,6 +58,8 @@ let rec (|UppercaseExpr|LowercaseExpr|) (expr: Expr) =
     | Expr.TypeApp node -> (|UppercaseExpr|LowercaseExpr|) node.Identifier
     | Expr.Dynamic node -> (|UppercaseExpr|LowercaseExpr|) node.FuncExpr
     | Expr.AppSingleParenArg node -> (|UppercaseExpr|LowercaseExpr|) node.FunctionExpr
+    | Expr.Paren node -> (|UppercaseExpr|LowercaseExpr|) node.Expr
+    | Expr.App node -> (|UppercaseExpr|LowercaseExpr|) node.FunctionExpr
     | _ -> failwithf "cannot determine if Expr %A is uppercase or lowercase" expr
 
 let (|ParenExpr|_|) (e: Expr) =