Попытка декодировать событие с помощью rescript-json-combinators

Question

Попытка создать эквивалент для decodeEvent с помощью rescript-json-combinators. Я не мог понять, как заменить «Декодер (декодер)», поскольку декодеры были сделаны абстрактными в комбинаторах rescript-json. Попытка использовать Decode.decode не сработала. Любая идея о том, как это можно решить?

         let decodeEvent = (Decoder(decoder), value: Web_node.event) =>
    try decoder(Obj.magic(value)) catch {
    | ParseFail(e) => Error(e)
    | _ => Error("Unknown JSON parsing error")
    }