schedule' :: Scheduler -> NominalDiffTime -> IO () -> IO ()
schedule' scheduler offset task = do
  now <- getCurrentTime
  schedule scheduler (offset `addUTCTime` now) task
schedule' :: Scheduler -> NominalDiffTime -> IO () -> IO ()
schedule' scheduler offset task = do
  now <- getCurrentTime
  schedule scheduler (offset `addUTCTime` now) task
schedule' scheduler offset task = do
  now <- getCurrentTime
  schedule scheduler (offset `addUTCTime` now) task