Always add new line between named module and first declaration. Fixes #…

…1139. (#1140)
fsprojects · Sep 17, 2020 · 4f84f92 · 4f84f92
1 parent b695df9
commit 4f84f92
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 1 deletion.
diff --git a/src/Fantomas.Tests/ModuleTests.fs b/src/Fantomas.Tests/ModuleTests.fs
@@ -600,3 +600,16 @@ module Test =
         type t = T of bool
         let foo = true
 """
+
+[<Test>]
+let ``always add new line between named module and first declaration, 1139`` () =
+    formatSourceString false """
+module Input
+    let modules = [109024;137172;80445;80044]
+"""  config
+    |> prepend newline
+    |> should equal """
+module Input
+
+let modules = [ 109024; 137172; 80445; 80044 ]
+"""
diff --git a/src/Fantomas/CodePrinter.fs b/src/Fantomas/CodePrinter.fs
@@ -132,7 +132,12 @@ and genModuleOrNamespace astContext (ModuleOrNamespace (ats, px, ao, s, mds, isR
                 +> sepNln
             else
                 sepNlnForEmptyNamespace node.Range +> sepNln
-        | Some _ -> sepNln
+        | Some mdl ->
+            let attrs =
+                getRangesFromAttributesFromModuleDeclaration mdl
+
+            sepNln
+            +> sepNlnConsideringTriviaContentBeforeWithAttributesFor (synModuleDeclToFsAstType mdl) mdl.Range attrs
 
     let genTriviaForLongIdent (f: Context -> Context) =
         match node with