MNie

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

MNie

{
    "documents": [
        {
            "language": "pl",
            "id": "32",
            "text": "ggfdgdfgd"
        }
    ]
}

MNie

let getSentimentScore json =
    let serializeJson = JsonConvert.SerializeObject json
    let response = Http.RequestString("https://westus.api.cognitive.microsoft.com/text/analytics/v2.0/sentiment",
        body = TextRequest serializeJson,
        headers = [ContentType HttpContentTypes.Json; "Ocp-Apim-Subscription-Key", "api_key"])
    response

MNie

{
  "documents": [
    {
      "id": "43",
      "score": 0.5432
    }
  ]
}

MNie

type responseJson =
    {
        documents: seq<responseDoc>
        errors: string list
    }
and responseDoc =
    {
        score: double
        id: string
    }

MNie

[{
	"Id": "4",
	"Text": "bad",
	"Score": 0.06886895
},
{
	"Id": "5",
	"Text": "very bad",
	"Score": 0.09467509
},

MNie

{
  "_type": "SpellCheck",
  "flaggedTokens": [
    {
      "offset": 60,
      "token": "english",
      "type": "UnknownToken",
      "suggestions": [
        {
          "suggestion": "English",

MNie

let loadFile path =
    File.ReadAllText path

let getSpellCheck text mode =
    let response = Http.RequestString(sprintf "https://api.cognitive.microsoft.com/bing/v5.0/spellcheck/?mode=%s" mode,
        body = TextRequest (sprintf "Text=%s" text),
        headers = [ContentType "application/x-www-form-urlencoded"; "Ocp-Apim-Subscription-Key", "{api-key}"])
    JsonConvert.DeserializeObject<responseJson>(response)

MNie

{
	"_type": "type",
	"flaggedTokens": [
	{
		"offset": 23,
		"token": "word",
		"type": "type",
		"suggestions": [
		{
			"suggestion": "word1",

MNie

type responseJson = 
    {
        _type: string
        flaggedTokens: flaggedToken list
    }
and flaggedToken = 
    {
        offset: int
        token: string
        ``type``: string