happstack-server-0.1: src/HAppS/Server/Cron.hs

module HAppS.Server.Cron (cron) where

import Control.Concurrent (threadDelay)

type Seconds = Int

cron :: Seconds -> IO () -> IO a
cron seconds action
    = loop
    where loop = do threadDelay (10^(6 :: Int) * seconds)
                    action
                    loop