创建一个处理JSON请求的WebPart:let jsonPart : WebPart =
choose [
path "/api" >=> choose [
GET >=> OK "Welcome to the API endpoint"
POST >=> OK "Received a POST request"
]
NOT_FOUND "Endpoint not found"
]
设置响应的Content-Type为application/json:let jsonHeaders : Headers =
Headers [
"Content-Type", "application/json"
]
let jsonPart : WebPart =
choose [
path "/api" >=> choose [
GET >=> setStatusCode 200 >=> setHeader jsonHeaders >=> OK "Welcome to the API endpoint"
POST >=> setStatusCode 200 >=> setHeader jsonHeaders >=> OK "Received a POST request"
]
NOT_FOUND "Endpoint not found"
]
返回JSON数据作为响应:let jsonData = {| "message" : "Hello, World!" |}
let jsonPart : WebPart =
choose [
path "/api" >=> choose [
GET >=> setStatusCode 200 >=> setHeader jsonHeaders >=> OK (jsonData |> JsonConvert.SerializeObject)
POST >=> setStatusCode 200 >=> setHeader jsonHeaders >=> OK "Received a POST request"
]
NOT_FOUND "Endpoint not found"
]
Suave.Operators open Suave.Filters open System.Runtime.Serialization(System.IO.Stream stream) <0x10da36030 + 0x0005c> in :0 at Suave.Json.fromJson[T] (System.Byte[]bytes) <0x10da