如何用rescript-json-combinators实现等价的decodeEvent函数？

由于rescript-json-combinators中的Decoder是抽象类型，无法直接解构内部解码函数，你需要改用库提供的公开API实现等价的decodeEvent函数，具体思路如下：

• 放弃直接解构抽象类型：抽象类型的设计目的是隐藏内部实现，强制使用者通过库暴露的方法操作，因此不能再用Decoder(decoder)这类解构写法。
• 使用库的顶层解码函数：用Decode.run执行解码逻辑，它接收解码器和待解码的值，内部处理完整解码流程。
• 保留原有错误处理逻辑：通过try/catch捕获库定义的异常，转换为result类型返回。

实现代码示例：

open Decode

let decodeEvent = (decoder: t<'a>, value: Web_node.event): result<'a, string> => {
  try {
    run(decoder, Obj.magic(value))->Ok
  } catch {
    | ParseFail(e) => Error(e)
    | _ => Error("Unknown JSON parsing error")
  }
}

额外说明：

• Obj.magic属于不安全类型转换，必须确保Web_node.event的结构能被当作JSON值解析，否则会引发运行时错误。
• 如果库提供了返回result类型的解码函数（比如部分版本的rescript-json-combinators有tryDecode），可以替换try/catch逻辑，让代码更安全：

  let decodeEvent = (decoder: t<'a>, value: Web_node.event): result<'a, string> => {
    tryDecode(decoder, Obj.magic(value))->Result.mapError(err => switch err {
      | ParseFail(e) => e
      | _ => "Unknown JSON parsing error"
    })
  }
  

内容的提问来源于stack exchange，提问作者Fer iel