Làm thế nào để chạy chương trình Haskell không ngừng chỉ sử dụng Haskell?

Question

Tôi có chương trình nhỏ cần thực hiện sau mỗi 5 phút.

Hiện tại, tôi có tập lệnh shell thực hiện tác vụ đó, nhưng tôi muốn cung cấp khả năng của người dùng để chạy nó mà không có tập lệnh bổ sung qua khóa trong CLI.

Cách tốt nhất để đạt được điều này là gì?

Answer 1

Tôi đoán bạn sẽ muốn một cái gì đó như thế (giả nhiều hơn hoặc ít hơn):

import Control.Concurrent (forkIO, threadDelay) 
import Data.IORef 
import Control.Monad (forever) 

main = do 
    var <- newIORef 5000 
    forkIO (forever $ process var) 
    forever $ readInput var 

process var = do 
    doActualProcessing 

    interval <- readIORef var 
    _ <- threadDelay interval 

readInput var = do 
    newInterval <- readLn 
    writeIORef var newInterval 

Nếu bạn cần phải vượt qua một số dữ liệu phức tạp hơn từ sợi đầu vào cho các chủ đề chế biến, MVar s hoặc TVar s có thể là lựa chọn tốt hơn so với IORef s.