在Haste和Haskell中用管道睡覺

Question

我正在使用大量使用Pipes庫的Haskell程序。我將庫的一部分移植到Haste。我碰到了一個絆腳石的那個地方是JavaScript處理睡眠的奇怪方式。

我想寫是一個簡單的管道發送其結果

sleeper :: Int -> Pipe a a IO() 
sleeper time = forever $ do 
        temp <- await 
        sleep time 
        yield temp 

然而在此之前，延遲，似乎睡眠就像一個回調。

setTimeout :: MonadIO m => Int -> IO() -> m() 

我試着做

sleeper time = do 
        temp <- await 
        yield temp 
        setTimeout time $ sleeper time 

但類型不正確排隊。有沒有辦法得到延遲管道？

Answer 1

你可能想看看https://github.com/imalsogreg/pipes-rt/blob/master/lib/Pipes/RealTime.hs#L127 有一個功能pauseUntil有