----------------------------------------------------------------------
-- Setup
----------------------------------------------------------------------

-- All the SQL queries are the ones from queue_classic.

create :: Connection -> IO ()
create con = createTable con >> createFunctions con
create :: Connection -> IO ()
create con = createTable con >> createFunctions con
create con = createTable con >> createFunctions con