Fixes 312

fsprojects · Jul 17, 2019 · 2a4dde1 · 2a4dde1
1 parent 163d4bb
commit 2a4dde1
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/src/Fantomas.Tests/DataStructureTests.fs b/src/Fantomas.Tests/DataStructureTests.fs
@@ -188,4 +188,14 @@ let ``multiline list should print each item on newline`` () =
       "ddddddddddddddddddddddddddddddddddddddddd"
       "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz"
       "ffffffffffffffffffffffffffffffffffffffff" ]
+"""
+
+[<Test>]
+let ``multiline list of string should not add ;`` () =
+    formatSourceString false """
+       [ "_Binaries/AltCover/Debug+AnyCPU/AltCover.exe"
+         "_Binaries/AltCover.Shadow/Debug+AnyCPU/AltCover.Shadow.dll" ]
+"""  ({ config with PageWidth = 80 })
+    |> should equal """[ "_Binaries/AltCover/Debug+AnyCPU/AltCover.exe"
+  "_Binaries/AltCover.Shadow/Debug+AnyCPU/AltCover.Shadow.dll" ]
 """
diff --git a/src/Fantomas/CodePrinter.fs b/src/Fantomas/CodePrinter.fs
@@ -690,7 +690,7 @@ and genExpr astContext synExpr =
         let isMultiline (ctx:Context) =
             xs
             |> List.fold (fun (isMultiline, f) e ->
-                if isMultiline || futureNlnCheck f ctx then
+                if isMultiline || futureNlnCheck (f +> genExpr astContext e) ctx then
                     true, sepNone
                 else
                     false, f +> genExpr astContext e