如何僅使用Haskell無休止地運行Haskell程序？

Question

我有一個小程序需要每5分鐘執行一次。

現在，我有執行該任務的shell腳本，但我希望爲用戶提供運行它的能力，無需通過CLI中的鍵添加其他腳本。

達到此目的的最佳方法是什麼？

Answer 1

我想你會想這樣的事情（或多或少僞代碼）：

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 

如果您需要從輸入線傳遞一些更復雜的數據處理線程，MVar S或TVar小號可能是比IORef更好的選擇。