Use inline keyword from GetSetMember trivia for MemberDefnPropertyGetSetNode. (#2910)

Author: nojaf

CHANGELOG.md

@@ -1,5 +1,10 @@
 # Changelog
 
+## [6.0.8] - 2023-06-20
+
+### Fixed
+* Inline keyword is missing in property [#2908](https://github.com/fsprojects/fantomas/issues/2908)
+
 ## [6.0.7] - 2023-06-20
 
 ### Fixed

src/Fantomas.Core.Tests/ClassTests.fs

@@ -1330,3 +1330,28 @@ type X() =
     member private this.Y
         with set _ = ()
 """
+
+[<Test>]
+let ``inline keyword on property, 2908`` () =
+    formatSourceString
+        false
+        """
+module Meh
+
+type Foo =
+    member inline this.Item
+        with get (i:int,j: char) : string = ""
+        and set (i:int,j: char) (x:string) = printfn "%i %c" i j
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+module Meh
+
+type Foo =
+    member inline this.Item
+        with get (i: int, j: char): string = ""
+        and set (i: int, j: char) (x: string) = printfn "%i %c" i j
+"""

src/Fantomas.Core/ASTTransformer.fs

@@ -2768,11 +2768,11 @@ let mkMemberDefn (creationAide: CreationAide) (md: SynMemberDefn) =
                                      attributes = ats
                                      xmlDoc = px
                                      headPat = SynPat.LongIdent(longDotId = memberName; accessibility = visGet)
-                                     trivia = { LeadingKeyword = lk
-                                                InlineKeyword = inlineKw }) as getBinding),
+                                     trivia = { LeadingKeyword = lk }) as getBinding),
                                  Some(SynBinding(headPat = SynPat.LongIdent(accessibility = visSet)) as setBinding),
                                  _,
-                                 { GetKeyword = Some getKeyword
+                                 { InlineKeyword = inlineKw
+                                   GetKeyword = Some getKeyword
                                    SetKeyword = Some setKeyword
                                    WithKeyword = withKeyword
                                    AndKeyword = andKeyword }) ->