#lang racket/base

(provide db-id?
         insert-id)

(require db)

(define db-id? exact-nonnegative-integer?)

(define (insert-id query)
  (cdr (assoc 'insert-id (simple-result-info query))))