Azure text analytics, sentiment, createjson

program.fs

type requestJson =
    {
        documents: seq<document>
    }
and document =
    {
        language: string
        id: string
        text: string
    }

let createJson (data:seq<CsvProvider<"input.csv">.Row>) =
    {
        documents = data |> Seq.map ( fun x -> x.ToString()) |> Seq.mapi ( fun i x -> {language = "en"; id = i.ToString(); text = x})
    }
    
let saveJson (json, fileName: string) =
    use outFile = new StreamWriter(fileName)
    (
        outFile.Write(JsonConvert.SerializeObject json)
    )