Fix for fsprojects#370

nojaf · Dec 5, 2018 · 70a1325 · 70a1325
1 parent b24600d
commit 70a1325
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 0 deletions.
diff --git a/.paket/paket.exe b/.paket/paket.exe
diff --git a/src/Fantomas.Tests/PreserveEOLTests.fs b/src/Fantomas.Tests/PreserveEOLTests.fs
@@ -569,3 +569,18 @@ let lst =
       7
     ]
 """
+
+[<Test>]
+let ``mulitple attributes should be indented correctly`` () =
+    formatSourceString false """
+module Tests =
+    [<Theory>]
+    [<InlineData("Blah")>]
+    let x = 123
+"""  config
+    |> should equal """
+module Tests =
+    [<Theory>]
+    [<InlineData("Blah")>]
+    let x = 123
+"""
diff --git a/src/Fantomas/TokenMatcher.fs b/src/Fantomas/TokenMatcher.fs
@@ -499,6 +499,7 @@ let integrateComments (config:Fantomas.FormatConfig.FormatConfig) compilationDef
         let indentWithNewSpacing xs ys = 
             let rec newSpacingLength zs =
                 match zs with
+                | (EOL, _)::(Space _)::(Tok(_, _), "[<")::_::(Tok(_, _), ">]")::(EOL, _)::(Space _)::(Tok(_, _), "[<")::_ -> 3
                 | (EOL, _)::(Space _)::(Tok(_, _), "[<")::_ -> 2
                 | (EOL, _)::(EOL, _)::(Tok(_, _), "[<")::_ -> 0
                 | (EOL, _)::(Space _)::_ -> 1