Verwenden von Versprechen mit setTimeout

Question

Ich bin neu in Reason, derzeit versucht, ein persönliches Projekt von js in Grund zu konvertieren. Meistens war es einfach weit weg von asynchronen Sachen. Ich kann meine Funktion nicht rekursiv mit Verzögerung aufrufen. Ich habe eine Funktion, die getPrice

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

ich ein Versprechen von int

zurück wollen checkPrice eine andere Funktion machen, die von bestimmten Benutzer Preis den aktuellen Preis prüft endlos, es sei denn Bedingung erfüllt ist.

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

Aber ich bin Typenkonflikt immer setTimeout sagte

vom Typ Einheit sein sollte

Answer 1

Der Js.Promise API ist leider absolut schrecklich, vor allem, weil das JS-API einfach nur unvernünftig ist, aber es ist nicht sehr gut durchdacht auf die Vernunftseite entweder. Es könnte einige Convenience-Korrekturen geben, die zu Js.Promise kommen, aber hoffentlich wird das Ganze in nicht allzu ferner Zukunft durch eine richtige Lösung ersetzt.

Im Hier und jetzt aber werden Sie, so etwas zu tun haben:

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 
     ) 
     } 
    ) 
);