История изменений
Исправление qnikst, (текущая версия) :
например так: если задач не 999999999
import Control.Concurrent.Async
import System.Process
addTask :: Int -> String -> IO ()
addTask d t = async $ threadDelay d >> runCommand t >> addTask d t
main = do
addTask 1000 "echo \"foo\""
...
Исходная версия qnikst, :
например так: если задач не 999999999
addTask :: Int -> String -> IO ()
addTask d t = async $ threadDelay d >> runCommand t >> addTask d t
main = do
addTask 1000 "echo \"foo\""
...