genNode for MemberDefn.

fsprojects · Nov 25, 2022 · 6c938f2 · 6c938f2
1 parent 38f56ea
commit 6c938f2
Show file tree

Hide file tree

Showing 2 changed files with 28 additions and 1 deletion.
diff --git a/src/Fantomas.Core.Tests/DallasTests.fs b/src/Fantomas.Core.Tests/DallasTests.fs
@@ -1663,3 +1663,28 @@ type internal Set<'T, 'ComparerTag> when 'ComparerTag :> IComparer<'T>(comparer:
     static let refresh (s: Set<_, _>) t =
         Set<_, _>(comparer = s.Comparer, tree = t)
 """
+
+[<Test>]
+let ``comment before inherit member definition`` () =
+    formatSourceString
+        false
+        """
+type ILModuleReader =
+    abstract ILModuleDef: ILModuleDef
+    abstract ILAssemblyRefs: ILAssemblyRef list
+
+    // ILModuleReader objects only need to be explicitly disposed if memory mapping is used, i.e. reduceMemoryUsage = false
+    inherit IDisposable
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+type ILModuleReader =
+    abstract ILModuleDef: ILModuleDef
+    abstract ILAssemblyRefs: ILAssemblyRef list
+
+    // ILModuleReader objects only need to be explicitly disposed if memory mapping is used, i.e. reduceMemoryUsage = false
+    inherit IDisposable
+"""
diff --git a/src/Fantomas.Core/CodePrinter2.fs b/src/Fantomas.Core/CodePrinter2.fs
@@ -3516,7 +3516,9 @@ let genMemberDefn (md: MemberDefn) =
         genSingleTextNode ic.InheritKeyword
         +> sepSpaceOrIndentAndNlnIfExpressionExceedsPageWidth (genInheritConstructor ic)
         |> genNode (InheritConstructor.Node ic)
-    | MemberDefn.Inherit node -> genSingleTextNode node.Inherit +> sepSpace +> genType node.BaseType
+    | MemberDefn.Inherit node ->
+        genSingleTextNode node.Inherit +> sepSpace +> genType node.BaseType
+        |> genNode node
     | MemberDefn.ValField node -> genField node
     | MemberDefn.Member node -> genBinding node
     | MemberDefn.ExternBinding node -> genExternBinding node