Write to CSV

script.fsx

module UserTable =
    open System.IO
    type List =
        static member Write (path:string) (data:'a list) = 
            use writer = new StreamWriter(path)
            data |> List.iter writer.WriteLine 

    let makeRow (data: string) =
      sprintf "id_%s_1,User %s 1,[email protected],TOKENHASH"
      <| data.Replace('-', '_')
      <| data
     
    [
        "yahoo-fr"
        "yahoo-us"
        "gmail-fr"
        "gmail-us"
    ]
    |> List.sortBy id
    |> List.map makeRow
    |> List.Write path