Я начинаю с Suave и F #. Я пытаюсь передать сериализованный объект json в своем веб-части, чтобы получить его в своем ответе.
В php у меня есть это
<?php header('Access-Control-Allow-Credentials:true'); header('Access-Control-Allow-Headers:Content-Type, Accept'); header('Access-Control-Allow-Methods:GET, POST, PUT, DELETE, OPTIONS'); header('Access-Control-Allow-Origin:*'); ?> { "player1Key":"hdegftzj25", "gameKey":"aegfhzkfszl74852" } и с этим я получаю свой json-объект, тогда я попытался сделать то же самое с Suave и Newtonsoft.Json
type gameCreate= { player1Key : string gameKey: string } let create= { player1Key = "BadBoys2"; gameKey = "zLUGgtrht4456" } let json = Newtonsoft.Json.JsonConvert.SerializeObject(create) //OK (acc |> Json.serialize |> Json.format ) let php = request (fun r -> match r.queryParam "playerName" with | Choice1Of2 name -> OK (movies |> Json.serialize(json) |> Json.format(json)) //|> Response.response(Json.toJson(info)) //|> OK | Choice2Of2 msg -> BAD_REQUEST msg) let webPart = choose [ path "/" >=> (OK "Home") path "/elm/api/create.php" >=> php ] startWebServer defaultConfig webPart
Поэтому я могу создать и сериализовать json-объект, но я не знаю, как передать его как ответ http в моей веб-части, и с приведенным выше кодом я продолжаю получать ошибку в типе выражений в моем let php