main = do
    pool <- newPool [("localhost", "9042")] "test" -- servers, keyspace
    runCas pool $ do
        ignoreDropFailure $ liftIO . print =<< executeSchema QUORUM dropLists ()
        liftIO . print =<< executeSchema QUORUM createLists ()

        u1 <- liftIO randomIO
        u2 <- liftIO randomIO
        u3 <- liftIO randomIO
        executeWrite QUORUM insert (u1, S.fromList ["one", "two"])
        executeWrite QUORUM insert (u2, S.fromList ["hundred", "two hundred"])
        executeWrite QUORUM insert (u3, S.fromList ["dozen"])

        liftIO . print =<< executeRows QUORUM select ()
main = do
    pool <- newPool [("localhost", "9042")] "test" -- servers, keyspace
    runCas pool $ do
        ignoreDropFailure $ liftIO . print =<< executeSchema QUORUM dropLists ()
        liftIO . print =<< executeSchema QUORUM createLists ()

        u1 <- liftIO randomIO
        u2 <- liftIO randomIO
        u3 <- liftIO randomIO
        executeWrite QUORUM insert (u1, S.fromList ["one", "two"])
        executeWrite QUORUM insert (u2, S.fromList ["hundred", "two hundred"])
        executeWrite QUORUM insert (u3, S.fromList ["dozen"])

        liftIO . print =<< executeRows QUORUM select ()
main = do
    pool <- newPool [("localhost", "9042")] "test" -- servers, keyspace
    runCas pool $ do
        ignoreDropFailure $ liftIO . print =<< executeSchema QUORUM dropLists ()
        liftIO . print =<< executeSchema QUORUM createLists ()

        u1 <- liftIO randomIO
        u2 <- liftIO randomIO
        u3 <- liftIO randomIO
        executeWrite QUORUM insert (u1, S.fromList ["one", "two"])
        executeWrite QUORUM insert (u2, S.fromList ["hundred", "two hundred"])
        executeWrite QUORUM insert (u3, S.fromList ["dozen"])

        liftIO . print =<< executeRows QUORUM select ()