Trivia regressions around SynConst

[nojaf]

Issue created from fantomas-online

Code

    match ast with
    | ParsedInput.SigFile _input ->
        // There is not much to explore in signature files
        true
    | ParsedInput.ImplFile input -> validateImplFileInput input

    match t with
    | TTuple _ -> not node.IsEmpty
    | TFun _ -> true // Fun is grouped by brackets inside 'genType astContext true t'
    | _ -> false

    let condition e =
        match e with
        | ElIf _
        | SynExpr.Lambda _ -> true
        | _ -> false // "if .. then .. else" have precedence over ","



    let source = """printfn foo

printfn bar""" // difference is the 4 spaces on line 188

    let x = 9

Result

match ast with
| ParsedInput.SigFile _input -> true
| ParsedInput.ImplFile input -> validateImplFileInput input

match t with
| TTuple _ -> not node.IsEmpty
| TFun _ -> true
| _ -> false

let condition e =
    match e with
    | ElIf _
    | SynExpr.Lambda _ -> true
    | _ -> false



let source = """printfn foo

printfn bar"""
// difference is the 4 spaces on line 188

let x = 9

Problem description

A couple of scenarios I didn't take into account when refactoring ASTTransformer.

Extra information

• The formatted result breaks by code.
• The formatted result gives compiler warnings.
• I or my company would be willing to help fix this.

Options

Fantomas Master at 03/13/2021 09:04:00 - 75f0dfc

Default Fantomas configuration

_{Did you know that you can ignore files when formatting from fantomas-tool or the FAKE targets by using a .fantomasignore file?}