Determine if DotGet expression is upper- or lowercase. Fixes fsprojec…

…ts#729
nojaf · Apr 24, 2020 · 957a922 · 957a922
1 parent 4a67f8a
commit 957a922
Show file tree

Hide file tree

Showing 2 changed files with 32 additions and 1 deletion.
diff --git a/src/Fantomas.Tests/LetBindingTests.fs b/src/Fantomas.Tests/LetBindingTests.fs
@@ -467,4 +467,33 @@ let genSigModuleDeclList astContext node =
                 (col sepNln xs (genSigModuleDecl astContext)
                  +> sepXsAndYs
                  +> genSigModuleDeclList astContext ys) ctx
-"""
+"""
+
+[<Test>]
+let ``determine lower or uppercase in DotGet, 729`` () =
+    formatSourceString false """namespace Foo
+
+open System.Linq
+
+module Bar =
+    let Baz () =
+        for foo in bar().OfType<SomeType>() do
+            printf "baz"
+
+        for foo in bar().meh<SomeType>() do
+            printf "baz"
+"""  config
+    |> prepend newline
+    |> should equal """
+namespace Foo
+
+open System.Linq
+
+module Bar =
+    let Baz () =
+        for foo in bar().OfType<SomeType>() do
+            printf "baz"
+
+        for foo in bar().meh<SomeType> () do
+            printf "baz"
+"""
diff --git a/src/Fantomas/SourceParser.fs b/src/Fantomas/SourceParser.fs
@@ -1362,6 +1362,8 @@ let (|UppercaseSynExpr|LowercaseSynExpr|) (synExpr:SynExpr) =
         | Some lp -> upperOrLower lp
         | None -> LowercaseSynExpr
 
+    | SynExpr.DotGet (_,_,LongIdentWithDots(lid),_) -> upperOrLower lid
+
     | _ -> failwithf "cannot determine if synExpr %A is uppercase or lowercase" synExpr
 
 let rec isEmptySynSimplePats (ssp:SynSimplePats) =