Come eseguire un programma Haskell usando infinitamente solo Haskell?

Question

Ho un piccolo programma che deve essere eseguito ogni 5 minuti.

Per ora, ho uno script di shell che esegue questa attività, ma voglio fornire all'utente la possibilità di eseguirlo senza ulteriori script tramite la chiave nella CLI.

Qual è il modo migliore per raggiungere questo obiettivo?

Answer 1

Presumo che vorrà qualcosa di simile (pseudocodice più o meno):

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 

Se è necessario passare alcuni dati più complessi dal thread di input per il thread di elaborazione, MVar s o TVar s potrebbe essere una scelta migliore di IORef s.