Driver.hs

-- | Run a given query and return a Result
--
-- >>> run h $ num 1 :: IO Int
-- 1
--
-- Due to differences in the response from aeson 0.10 and 0.9 and below
-- we use wildcards to catch a few parts of the error that are similar
-- >>> run h $ str "foo" :: IO (Either RethinkDBError Int)
-- ...Unexpected response...
--
-- >>> run h $ str "foo" :: IO (Maybe Int)
-- Nothing
--
-- >>> run h $ str "foo" :: IO Int
-- ...Unexpected response...
--
-- >>> c <- run h $ table "users" # orderBy [asc "name"] # (!"name"):: IO (Cursor Datum)
-- >>> next c
-- Just "bill"
-- >>> collect c
-- ["nancy","sabrina"]