来自javascript绑定的未加标签的联合走错了路
来自javascript绑定的未加标签的联合走错了路
提问于 2018-07-18 17:34:55
我正在尝试为amqplib npm包编写一个reasonml绑定：
http://www.squaremobius.net/amqp.node/
特别是这个函数：
http://www.squaremobius.net/amqp.node/channel_api.html#channel_get
class type amqpMessageT = [@bs] {
pub content: nodeBuffer
};
type amqpMessage = Js.t(amqpMessageT);
type gottenMessage = Js.Nullable.t(amqpMessage);
type qualifiedMessage = Message(gottenMessage) | Boolean(bool);
class type amqpChannelT = [@bs] {
pub assertQueue: string => queueParams => Js.Promise.t(unit);
pub consume: string => (amqpMessage => unit) => unit;
pub ack: amqpMessage => unit;
pub get: string => Js.Promise.t(qualifiedMessage);
pub purgeQueue: string => Js.Promise.t(unit);
pub deleteQueue: string => Js.Promise.t(unit);
pub sendToQueue: string => nodeBuffer => messageParams => unit;
};然后我有以下代码：
....
channel##get("MyQueue")
|> Js.Promise.then_(message => {
switch message {
| Boolean(false) => Js.Promise.resolve(Js.log("No Message"));
| Message(msg) => Js.Promise.resolve(Js.log("Has Message, Will Travel"));
| Boolean(true) => Js.Promise.resolve(Js.log("Impossible Message"!));
}
}然而，这总是沿着"Message(msg)“路径进行，即使js调用返回false也是如此。
现在添加以下绑定：
let unsafeGet: amqpChannel => string => Js.Promise.t(gottenMessage) = [%bs.raw{|function(channel, queueName) {
return channel.get(queueName).then((value) => {
if(value === false) {
return Promise.resolve(null)
} else {
return Promise.resolve(value)
}
})
}|}];我一直能够回避这个问题，但老实说，我并不是一个非常喜欢使用bs.raw的人。我的初始未标记联合类型有什么问题？我如何解决这个问题？
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-07-31 04:07:56
在OCaml语言中没有未标记的联合类型，也没有运行时类型信息，因此您必须实现自己的类型、检查和转换，以将其转换为可用的形式。
例如，您可以使用抽象类型来表示“未知”类型，并使用相应的函数来检查其类型，将其转换为该类型，然后将其转换为qualifiedMessage
type unknownMessage;
let classifyMessage = (value: unknownMessage) =>
switch (Js.Types.classify(value)) {
| JSString(s) => Message(Js.Nullable.return(s))
| JSNull => Message(Js.null)
| JSFalse => Boolean(false)
| JSTrue => Boolean(true)
| _ => failwith("invalid runtime type")
}另外，顺便提一下，如果您通过公开抽象类型和函数/外部变量来抽象底层数据结构，而不是公开“原始”对象，那么您将在定义接口的方式上获得很大的灵活性，并且可以隐藏这个额外的转换步骤。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/51398556
复制相关文章
相似问题