main :: IO ()
main = do
  conn <- connect disqueConnectInfo
  runDisque conn $ do
    let timeout = 0
    addjob "test_queue" "test data" timeout >>= liftIO . print
    getjob ["test_queue"] >>= liftIO . print
main :: IO ()
main = do
  conn <- connect disqueConnectInfo
  runDisque conn $ do
    let timeout = 0
    addjob "test_queue" "test data" timeout >>= liftIO . print
    getjob ["test_queue"] >>= liftIO . print
main = do
  conn <- connect disqueConnectInfo
  runDisque conn $ do
    let timeout = 0
    addjob "test_queue" "test data" timeout >>= liftIO . print
    getjob ["test_queue"] >>= liftIO . print