Question

我是Reason的新手，目前正试图将个人项目从js转换为理性。除了异步之外，它大部分都很容易。我无法通过延迟递归调用我的函数。我有一个函数getPrice，它返回int

的承诺

type getPrice = unit => Js.Promise.t(int)

我想创建另一个函数checkPrice，它会根据给定的用户价格无休止地检查当前价格，除非满足条件。

let rec checkPrice = (userPrice) =>
  Js.Promise.(
   getPrice()
    |> then_(
     (currentPrice) =>
       if (currentPrice >= userPrice) {
         resolve(currentPrice)
       } else {
         /* call this function with setTimeout */
         checkPrice(userPrice)
       }
   )
);

但是我遇到类型不匹配，说setTimeout应该是单位类型

Answer 1

遗憾的是，Js.Promise API非常糟糕，主要是因为JS API只是简单的不合理，但它在Reason方面也没有经过深思熟虑。 Js.Promise可能会有一些方便的修复，但希望在不久的将来，整个事情都会被适当的解决方案所取代。

然而，在这里和现在，你必须做这样的事情：

external toExn : Js.Promise.error => exn = "%identity";

let rec checkPrice = (userPrice) =>
  Js.Promise.(
    getPrice()
    |> then_(
     (currentPrice) =>
       if (currentPrice >= userPrice) {
         resolve(currentPrice)
       } else {
         Js.Promise.make((~resolve, ~reject) =>
           Js.Global.setTimeout(
             fun () =>
               checkPrice(userPrice)
               |> then_((v) => [@bs] resolve(v) |> Js.Promise.resolve)
               |> catch((e) => [@bs] reject(toExn(e)) |> Js.Promise.resolve)
               |> ignore,
             0
           ) |> ignore
         )
       }
   )
);

使用带有setTimeout的promises

1 个答案: