gistfile1.hs

module DateAndTime(DateData(..), rulemap) where
import Control.Concurrent(forkIO, threadDelay, ThreadId)
import Control.Monad(forever)
import Types
import qualified Data.ByteString.Char8         as BS

data Date = Date
data PeriodData = PeriodData { seconds :: Int }
data DateData = DateData { time :: Date }

periodically :: PeriodData -> IO () -> IO (Maybe ThreadId,BS.ByteString)
periodically incoming action = do
  pid <- forkIO $ forever (threadDelay (seconds incoming) >> action)
  return (Just pid, "ok")


oneTime :: DateData -> IO () -> IO (Maybe ThreadId,BS.ByteString)
oneTime incoming action = do
  pid <- forkIO $ waitUntil (time incoming) >> action
  return (Just pid, "ok")

waitUntil :: Date -> IO ()
waitUntil = undefined