setTimeout과 함께 약속 사용하기

Question

저는 개인 프로젝트를 js에서 reason로 변환하려고하는 Reason을 처음 접했습니다. 대부분 비동기적인 것들과는 별개로 쉽습니다. 지연과 함께 재귀 적으로 내 함수를 호출 할 수 없습니다. 나는 INT

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

나는 조건이 충족 끝없이하지 않는 한 지정된 사용자 가격 현재 가격을 확인 다른 함수 checkPrice을 만들고 싶어의 약속을 반환하는 함수 getPrice 있습니다.

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는 그냥 일반 건전 주로하기 때문에, 불행히도 절대적으로 끔찍한이지만, 그것은 아주 잘 밖으로 생각이 아니다 이유 측면. 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 
     ) 
     } 
    ) 
);