f# - 映射 json 输入但不在 Suave 中输出

Question

Suave.Json.mapJson将输入 JSON 映射到一个对象到您的函数中，然后将您的函数的输出映射到 JSON。

问题是我对它映射到我的函数的方式感到满意，但我需要返回一个 json 字符串响应，而不是让我将输出序列化为 JSON。我怎样才能做到这一点？

目前我的输出被序列化了两次。到目前为止我的代码:

let executeQuery : Query -> string = //Query is my deserialised json input, the return value is a json string
let app = POST >=> path "/graphql" >=> Json.mapJson executeQuery >=> setMimeType "application/json; charset=utf-8"
startWebServer defaultConfig app

Answer 1

如果你看 Suave source code ，你会看到 mapJson是 mapJsonWith fromJson toJson 的简写. fromJson和 toJson函数是默认的 JSON 反序列化器和序列化器(分别)，但您可以创建自己的 - 或者只是使用 id说“映射这个方向而不改变它”。例如。，

let oneWayMapJson = mapJsonWith fromJson id

请注意，我尚未对此进行测试，只是将其输入到 Stack Overflow 答案框中，因此可能需要进行一些调整。我现在没有时间扩展这个答案，但是如果您需要比这个相当简单的答案更多的帮助，请告诉我，我会在明天的某个时候尝试为您提供更多帮助。