Fix for fsprojects#505

nojaf · Oct 12, 2019 · e77e006 · e77e006
1 parent 906b81c
commit e77e006
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
@@ -328,4 +328,21 @@ type T() =
 type T() =
     interface IDisposable with
         override x.Dispose() = ()
+"""
+
+[<Test>]
+let ``attribute on module after namespace`` () =
+    formatSourceString false """namespace SomeNamespace
+
+[<AutoOpen>]
+module Types =
+    let a = 5
+"""  config
+    |> prepend newline
+    |> should equal """
+namespace SomeNamespace
+
+[<AutoOpen>]
+module Types =
+    let a = 5
 """
diff --git a/src/Fantomas/CodePrinter.fs b/src/Fantomas/CodePrinter.fs
@@ -113,7 +113,8 @@ and genModuleOrNamespace astContext (ModuleOrNamespace(ats, px, ao, s, mds, isRe
         match firstDecl with
         | None -> rep 2 sepNln
         | Some mdl ->
-            sepNlnConsideringTriviaContentBefore mdl.Range +> sepNln
+            let attrRanges = getRangesFromAttributesFromModuleDeclaration mdl
+            sepNlnConsideringTriviaContentBeforeWithAttributes mdl.Range attrRanges +> sepNln
 
     let genTriviaForLongIdent (f: Context -> Context) =
         match node with