Line comment after record not printed

[nojaf]

Issue created from fantomas-online

The short record expression should be wrapped in a genTrivia function.
Comment after was lost because of this.

Code

/// Formatting F# code
/// A case study

type FormatConfig = { 
    PageWidth: int
    Indent: int } // The number of spaces 

type ILogger =
    member this.LogDebug message = (* TODO: implement something *) ()

let run (req: HttpRequest) (log: ILogger) =
    Http.main getFantomasVersion format FormatConfig.FormatConfig.Default log req
    |> Async.StartAsTask

Result

/// Formatting F# code
/// A case study

type FormatConfig = { PageWidth: int; Indent: int }

type ILogger =
    member this.LogDebug message = ()

let run (req: HttpRequest) (log: ILogger) =
    Http.main getFantomasVersion format FormatConfig.FormatConfig.Default log req
    |> Async.StartAsTask

Options

Fantomas Next - 4.0.0-alpha-001-1/1/1990

Name	Value
IndentSpaceNum	4
PageWidth	120
SemicolonAtEndOfLine	false
SpaceBeforeParameter	true
SpaceBeforeLowercaseInvocation	true
SpaceBeforeUppercaseInvocation	false
SpaceBeforeClassConstructor	false
SpaceBeforeMember	false
SpaceBeforeColon	false
SpaceAfterComma	true
SpaceBeforeSemicolon	false
SpaceAfterSemicolon	true
IndentOnTryWith	false
SpaceAroundDelimiter	true
MaxIfThenElseShortWidth	40
MaxInfixOperatorExpression	50
MaxRecordWidth	40
MaxArrayOrListWidth	40
MaxLetBindingWidth	40
MultilineBlockBracketsOnSameColumn	false
NewlineBetweenTypeDefinitionAndMembers	false
StrictMode	false