Quotation escapes removed - Bug report from fantomas-ui

[ImaginaryDevelopment]

Issue created from fantomas-ui

Please describe here fantomas problem you encountered
With strict mode on, it strips out the Quotation mark escapes, making the code invalid syntax

Code

let toCsv (items:Ipish list):string=
    let formatter =
        // escape commas left in invalid entries
        sprintf "%i,\"%s\""
    items
    |> List.map(function
                |Valid(i,vip)-> formatter i vip.Raw
                |Invalid(i,raw) -> formatter i raw
    )
    |> String.concat System.Environment.NewLine
    |> sprintf "index,value%s%s" System.Environment.NewLine

Result

let toCsv (items : Ipish list) : string =
    let formatter =
        sprintf "%i,"%s""
    items
    |> List.map (function
           | Valid(i, vip) -> formatter i vip.Raw
           | Invalid(i, raw) -> formatter i raw)
    |> String.concat System.Environment.NewLine
    |> sprintf "index,value%s%s" System.Environment.NewLine

Options

Fantomas 2.9.2

Name	Value
IndentSpaceNum	4
PageWidth	80
PreserveEndOfLine	false
SemicolonAtEndOfLine	false
SpaceBeforeArgument	true
SpaceBeforeColon	true
SpaceAfterComma	true
SpaceAfterSemicolon	true
IndentOnTryWith	false
ReorderOpenDeclaration	false
SpaceAroundDelimiter	true
StrictMode	true