Lập lịch thời gian chờ trong Haskell

Question

Tôi là người mới sử dụng Haskell và tôi đang cố gắng tìm ra cách lên lịch cuộc gọi lại được kích hoạt X giây từ bây giờ (và không sớm hơn).

Trong tìm kiếm Hoogle và Google, tôi đã phát hiện ra:

http://www.haskell.org/ghc/docs/latest/html/libraries/base/GHC-Event.html

cũng như:

http://hackage.haskell.org/packages/archive/base/4.3.1.0/doc/html/System-Event.html

Cả hai tính năng một "registerTimeout" chức năng mà dường như làm những gì tôi muốn. Tuy nhiên, System.Event dường như không còn trong các phiên bản mới nhất của Haskell và GHC.Event được đánh dấu là nội bộ.

Có một số thay thế không gian người dùng mà tôi có thể sử dụng không? Tôi không muốn sử dụng các chức năng thời gian dành cho GLUT (trừ khi đó là cách quy định để đạt được mục tiêu của tôi), và System.Timeout không xuất hiện với những gì tôi muốn; nó được thiết kế để đặt tối đa số lượng thời gian mà một cái gì đó có thể thay vì tối thiểu.

Cảm ơn bạn đã nhập!

Answer 1

Tôi chỉ cần thực hiện cuộc gọi lại trên chuỗi của chính nó sau khi trì hoãn. Đây là một GHC-ism.

import Control.Concurrent (forkIO, threadDelay) 

-- | Run the callback after the given number of milliseconds. 
runAfterDelay :: Int -> IO() -> IO() 
runAfterDelay t f = forkIO (threadDelay t >> f) 

Chủ đề trong GHC đặc biệt có trọng lượng nhẹ, vì vậy điều này sẽ không liên kết tài nguyên hệ thống.