comment after paren is repeated

[nojaf]

Issue created from fantomas-online

Code

let private tokenizeLines (sourceTokenizer: FSharpSourceTokenizer) allLines state =
  allLines
  |> List.mapi (fun index line -> line, (index + 1)) // line number is needed in tokenizeLine
  |> List.fold (fun (state, tokens) (line, lineNumber) ->
      let tokenizer = sourceTokenizer.CreateLineTokenizer(line)
      let nextState, tokensOfLine =
          tokenizeLine tokenizer allLines state lineNumber []
      
      let allTokens = List.append tokens (List.rev tokensOfLine) // tokens of line are add in reversed order
      (nextState, allTokens)
  ) (state, []) // empty tokens to start with
  |> snd // ignore the state

Result

let private tokenizeLines (sourceTokenizer: FSharpSourceTokenizer) allLines state =
    allLines
    |> List.mapi (fun index line -> line, (index + 1)) // line number is needed in tokenizeLine
    |> List.fold (fun (state, tokens) (line, lineNumber) ->
        let tokenizer =
            sourceTokenizer.CreateLineTokenizer(line)

        let nextState, tokensOfLine =
            tokenizeLine tokenizer allLines state lineNumber []

        let allTokens =
            List.append tokens (List.rev tokensOfLine) // tokens of line are add in reversed order

        (nextState, allTokens))  // tokens of line are add in reversed order
           (state, []) // empty tokens to start with
    |> snd // ignore the state

Problem description

Similar to #1082, the scope of RParen token should be smaller.

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 9/4/2020

Default Fantomas configuration